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Un faux compatible est un poison! 
voici l'antidote: 
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Ton abondance, 

Ton TURBO, 

Ton DOS +, ton GEM, 
Ton TURBO-PASCAL. 
Ton PRIX 
... JE CRAQUE ! 
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NOUVEAUTÉ- 

DES COMPATIBLES PC A MOINS 
DE 4.000 F m C’EST UNE RÉALITÉ 

avec la nouvelle gamme d’ordinateurs complets 

JASMIN TURBO HQ de T.R.A.N. 


Jasmin Turbo 
en grande surface 

J'ai été agréablement surpris de trou¬ 
ver des « JASMIN TURBO » dans une 
grande surface. Avec son look «AT - et 
sa clé « anti-reset », il fait vraiment pro¬ 
fessionnel. Mas que fait-il dans un hyper¬ 
marché. ce compatible IBM PC/XT ? 
Quand i'a vu le pnx. j'a compns ! Il com¬ 
mence à 3.954,47 F Hors Taxes pour 
256 K de mémoire vive (RAM). Mais c'est 
le prix d'un bon micro-ordinateur fami¬ 
lial ! C'est difficile de résister et. bien sûr, 
je me suis même laissé tenter par un 
modèle supéneur à deux lecteurs de dis¬ 
quettes et 640 K RAM à 6.224.29 F H T 
Surtout, je connas bien la société fran- 
ça se T. R. A N à travers sa famille de lec¬ 
teurs JASMIN, ben appréciés des ORI- 
CIENS et des AMSTRADIENS 

De bonnes surprises 

6 224 F. c'est déjà un très bon prix pour 
un compatible PC classique de même 
capacité, mais quand l'enlève l'embal¬ 
lage. quelle découverte 1 Le langage 
structuré le plus vendu au monde, le 
TURBO PASCAL de Borland avec son 
manuel, les systèmes d exploitation DOS 
PLUS et GEM de D R I avec le guide 
et les licences officielles L'ensembe de 
ces logiciels coûte à lui seul plus de 
2 000 F Encore une autre découverte 
une souris de haute précision dont le pnx 
est d'au moins 1 000 F Surtout, l'unité 
centrale contient dé|à 

— la carte-mère équipée de 640 K de 
RAM. du microprocesseur 8088-2. d'un 
emplacement prévu pour le rajout du co¬ 
processeur arithmétique 8087 et de 8 
ports d extension à connecteurs longs . 

— la carte 16 couleurs et graphique 
appelée aussi la carte CGA avec une sor 
tie vidéo composite couleur, une sortie 
vidéo N et B une sortie RVBI une mter 
face crayon optique . 

— la carte « MULTI I/O >• comprend deux 
ports 9érie dont un équipé, une interface 
imprimante parallèle Centronc. une en¬ 
trée manette de |eu. une horloge/calen 
drier permanent sauvegardée par bat 
tene. le contrôleur pour deux lecteurs de 
disquette 


Et il reste encore 6 ports d'extension dis- 
pombes Sa généreuse alimentation à 
découpage de 150 W ventilée réside 
dans l'unité centrale et non dans le moni¬ 
teur. ce qui permet une évolution sans 
soucis de la configuration du système, 
par exemple changer de moniteur sui¬ 
vant ses besoins 

La double vitesse, clé 
de la vraie compatibilité 

On connaît ben les probèmes que 
posent les ordinateurs qui ne fonction¬ 
nent qu'en 8 MHZ avec des logiciels 
écrits pour du 4.77 MHZ. vitesse de l'IBM 
PC Or. JASMIN PC est un TURBO à 
double vitesse 8MHZ et 4.77 MHZcom 
mutabe au clavier C est indispensable 
pour une vraie compatibhté 
Mis en garde ces derniers temps de la 
mauvaise compatiblité de certains clo¬ 
nes. j'ai tout de suite testé avec •• Com- 
patest •> et MS-DOS Le résultat m a plus 


que rassuré 98 % en compatiblité pon¬ 
dérée et 3* niveau de compatiblité. Et. 
jusqu'à ce jour, je n'a pas encore trouvé 
de logoel pour IBM PC qui ne fonctxyine 
pas sur le JASMIN TURBO 

Systèmes d’exploitation 

J ai apprécié le choix du système 
d exploitation DOS PLUS de Digital 
Research Inc . pour sa double compa¬ 
tibilité avec le système MS DOS 2-11 et 
CP/M 86 Vive les transferts de fichiers 
entre les deux standards 
Le système d exploitation d'environ¬ 
nement graphique GEM (Graphie 
Environment Manager) de DRI est livré 
avec, ce qui permet à JASMIN TURBO 
d utiliser toute application écrite sous 
GEM disponible sur le marché Par 
exemple le GEM-DESKTOP (pour 
BUREAU) permet d'utiliser le JASMIN 
TURBO avec des Icônes comme un 
Macintosh 

La convivialité avant tout 


Gamme JASMIN TURBO HQ : 

HO pour Haute Qualité Chaque modèle est équipé d ottice d une carte TURBO des 
cartes ■■ CGA •• et •• Multi I/O •• du clavier AZERTY de bonne qualité avec indicateurs 
lumineux et d un lecteur de disnuettes 5 1/4 Chacun est accompagné de DOS-PLUS 
GEM et TURBO PASCAL 


HO CLUB 

256 K RAM extensible a 640 K 
alimentation allégée DOS PLUS 

TURBO PASCAL 1 lecteur 5 1/4 

3.954,47 F HT 

HQ 2 

640 K RAM Souns DOS PLUS 

GEM TURBO PASCAL 

Alimentation 150 W 2 lecteurs 5 14 

6.224,29 F HT 

HO 10 

640 K RAM Souris DOS PLUS 

GEM TURBOPASCAL Alimentation 150 W 

1 lecteur 5 1/4 1 disque DUR 10 MB 

8.001,69 F HT 

HO 20 

640 K RAM Souns DOS PLUS 

GEM TURBOPASCAL Alimentation 1 50 W 

1 lecteur 5 1/4 1 disque DUR 20 MB 

9.915,69 F HT 

Le moniteur monochrome 12 haute resolution est proposé a 758 85 F HT Lemoni 


leur couleur 14 haute detinition 3 279 93 FHT 


Où trouver les JASMIN TURBO ? 

Chez VCB2-GARONOR Tél 48 67 66 01, D F l PARIS Tél 42 88 14 97. MICRO-CLUB 
BOBIGNY Tél 48 31 69 33. VISMO PARIS (11*) Tél 43 38 60 00. MAXITRONIC MAR¬ 
SEILLE Tél 91 34 49 79 TRILOGIC MARSEILLE Tél 91 08 05 49. SOMECII MAR 
TIGUESTél 42 81 07 38. JCR LYON Tét 78 61 16 39. MICRO DIFFUSION TOULOUSE 
Tél 61 22 81 17 dans les points de vente JASMIN et aussi directement chez T R A N . 
53 impasse Blériot. 83130 LA GARDE • Tél 94 21 19 68 
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t&X •' 

(X • Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de U h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé • ne 
dépensez pas inutilement votre argent ! 


• 

/ • 
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EDITORIAL 



ORIC, enfin du nouveau ! Côté logiciel, Bleu-Ciel Informatique se défonce et sort 
trois nouveaux titres dans le domaine des éducatifs et utilitaires. Cobra, le serpent 
bienfaisant met sur le marché A.T.M, un jeu d'arcade qui n'a rien à envier aux meil¬ 
leurs classiques du passé. Enfin, Norsoft, nous a mijoté une suite pour Tyrann, qui 
avait déjà marqué une étape dans les jeux de rôle dédiés à l'ORIC, avec Tyrann II. 

Côté matériel, Informatique et Nature (IN) propose l'ATMOS 2, UN ATMOS dédié à la 
télématique, pour tous ceux qui n'envisagent pas l'achat d'un Télestrat. 

Alors, qui disait que l'actualité ORIC était au point mort ? 

Allez, Joyeux Noël quand même ! 

Denis BONOMO 


ORDIELEC 

19, rue Hippolyte Flandrin 
69001 LYON 
Tél. 78.27.80.17 

Par minitel de 12h15 à 14h00 
et de 19h30 à lOhOO à ce même numéro 

SPÉCIALISTE ORIC 

Démonstration Telestrat 
en pormanence 

Composants connsctlqus 
st cablas. 


COMMANDE ANCIENS NUMEROS 


(valable jusqu'à épuisement des stocks) 


Numéros 6 à 21 .30 F pièce 

Numéros 11 (Hors Série), 22 et suivants .... 25 F pièce 

ATTENTION : NUMERO(S) EPUISE(S) : 1, 2. 3, 4, 5, 8 ,16 
NOM .Prénom . 

Adresse . 

Code Postal .Ville . 


Frais de port : 7,10 F pour 1 revue 
10,30 F pour 2 revues 
14,60 F pour 4 revues 
21,00 F au dessus 


|Ci-joint, chèque bancaire ou postal de 
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COURRIER 



On a beau vous le dire, vous le 
répéter, sous tous les tons et 
toutes les formes, il y en a toujours 
qui oublient de mettre leur adresse. 
Dans ce cas, impossible de ré¬ 
pondre au courrier, n’est-ce pas E. 
Bazin ? Non, nous ne publions 
pas votre lettre en totalité car 
beaucoup de réponses à vos 
questions sont apportées dans nos 
résultats du sondage, que vous 
lirez avec intérêt, mais nous ne re¬ 
prendrons que la fin de votre lettre, 
traitant du prix de la revue : La 
réduction du prix de THEORIC ne 
pouvait s’effectuer que si elle était 
accompagnée d'une légère dimi¬ 
nution du nombre de pages. En 
effet, le volume publicitaire est 
réduit dans THEORIC et l'incidence 
des coûts de fabrication n'est pas 
négligeable (le prix du papier ne 
baisse pas lui !) ; il fallait bien 
trouver une solution si l'on voulait 
abaisser le prix jusqu'à 25 francs ! 
Gageons que vous n'êtes pas déçu 
du contenu global de THEORIC qui 
continue à vous proposer d'excel¬ 
lents articles ! 

Mr Gérard COHEN 
77 CHELLES 

- Au sujet des programmes 
COMP/DECOMP : comment les 
utiliser avec le programme "CUBE 
en 3D" ? D'autre part, comment 
procéder afin de ne faire qu'un seul 
CLOAD ? 

- Voici les réponses, apportées 
directement par l'auteur, Mr LU¬ 
THER, qui joint par la même 
occasion un petit listing explicant le 
fonctionnement des routines 
COMP/DECOMP ainsi que la sauve¬ 
garde des dessins sur cassette. 

1— a) Ajouter dans le programme 
CUBE (Théorie 22) les lignes : 

5 DOKE2, # 3000 :REM Adr. 
début écran compressé 
1145 CALL # 2E00 : REM 
Compression 
1200 DOKE 2, # 3000 


1210 FOR TT = 1 T0 36 
1220 CALL # 2F00 : REM 
Décompression 
1230NEXTTT 

b) Charger et exécuter les 
programmes COMP et DECOMP 
(chargeurs BASIC, voir Théorie 21). 

c) Exécuter le programme modifié 
CUBE. 

INTRODUISEZ : 

1,1,1 (vecteur A) 

10 (DP pas de travail) 

350 (PM phi max) 

2- a) Ajouter en première ligne de 
votre programme BASIC 1 CLOAD 
"COM DE COM" 

b) Exécuter les programmes COMP 
et DECOMP. 

c) Stocker directement à la suite de 
votre programme en BASIC le 
fichier binaire COM DECOM par 
CSAVE "COM DECOM", A # 2E00 
,E#3000. 

d) Charger et exécuter le program¬ 
me en BASIC et laisser le lecteur de 
cassettes en marche. 

Fixez l'adresse du premier écran 
compressé, ici #3000. 

Après un CALL #2E00 (compres¬ 
sion de l'écran), vous trouverez 
l'adresse de début d'un éventuel 
écran suivant en #02, #03. Dans 
votre programme, vous avez un 
écran à #3000 et un autre à #3001. 
Cela est impossible, la largeur d'un 
écran compressé devant toujours 
être un multiple de 64. 


W. LUTHER 
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THEORIC et les Abonnés 

Nous recevons toujours des appels 
téléphoniques ou des courriers 
d'abonnés se plaignant de recevoir 
la revue avec quelques jours de 
retard. Nous croyons bon de pré¬ 
ciser, une fois de plus, que ceci 
n'est pas de notre fait, ni de celui 
du routeur. Le retard incombe 
systématiquement aux PTT. A titre 
d'exemple, le n° 25 de Théorie 
remis au routeur (société PVO à 
LIRE dans le Maine-et-Loire) le 
30/10 est parti le 31/10 (cachet de 
la poste faisant foi. Notre "abon¬ 
nement-test" est parvenu à Bruz, le 
5/11 au matin... Le 12/11, nous 
recevions toujours des appels 
d’abonnés non servis ! 

Encore une fois, THEORIC ne 
bénéficie pas de la commission 
paritaire (car la revue est assimilée à 
de la pub, ne traitant que d'une 
seule marque d'ordinateurs). De ce 
fait, nous n'avons pas droit au 
routage 206 qui accélérerait l'a¬ 
cheminement de la revue et... 
nous coûterait moins cher en frais 
postaux. 

Enfin, sachez que le règlement 
interne des PTT prévoit 8 jours 
maximum pour l'acheminement de 
notre routage, délai souvent dé¬ 
passé ! 

TELESTRAT et Jasmin 

La question est fréquente : peut- 
on connecter un Jasmin sur le 
Télestrat ? La réponse est non... 
Le Téléstrat contient la carte 
contrôleur indispensable à la 
gestion du drive. II faudrait sup¬ 
primer la carte contrôleur interne au 
Jasmin pour connecter l'élec¬ 
tronique du drive directement sur le 
Télestrat. Nous n'avons procédé à 
aucun essai dans ce sens et 
l'intérêt est, somme toute, assez 
réduit puisque le Téléstrat est 
vendu avec son drive. 

De Eric SOHIER 
94 SUCY-EN-BRIE 

- Comment photographier, dans 
les meilleures conditions, un écran 
de télévision ? 

- D'abord i! convient de rappeler 
quelques règles élémentaires. La 
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pièce doit être obscure : évitez les 
reflets sur l'écran, dûs à un éclai¬ 
rage ou à une fenêtre. L'appareil 
photo sera, de préférence; disposé 
sur un pied pour garantir une bon¬ 
ne stabilité et équipé, si possible, 
d'un déclencheur souple. Les com¬ 
mandes de lumière, contraste (et 
éventuellement de couleur) seront 
réglées afin d'obtenir une image 
correcte. 

Bien entendu, le flash est à 
bannir : il éblouirait l'écran et votre 
photo ne serait qu'une tache 
blanche. 

En ce qui concerne les réglages de 
l'appareil, il faut afficher une vitesse 
suffisamment basse, afin de ne pas 
voir le balayage TV qui se traduirait 
sur la photo par deux bandes 
sombres. Travaillez au 1/25e ou 
moins. Le diaphragme sera choisi 
en fonction de la sensibilité du film. 
Pour 100 ASA, une base de départ 
à F 11 paraît satisfaisante au l/25e 
de seconde. N'hésitez pas à mul¬ 
tiplier les prises de vue, de manière 
à "encadrer" la valeur de départ (ici 
F 8 puis F 16). Ceci vous permettra 
de choisir par la suite... 

Si l’image est fixe, il est préférable 
d'effectuer la prise de vue à une 
vitesse inférieure, par exemple 1/2 
seconde. Dans ce cas, diminuez la 
valeur habituelle de l'ouverture 
d'un diaphragme (par exemple, pas¬ 
sez de Fl6 à F22). Enfin, si vous 
choisissez un film plus sensible, il 
faudra diminuer d'autant l'ouverture 
(pour 400 ASA, on passera de F 11 
à F 22, par exemple). 

OO 

Mr André GEORGES 
91 MONTGERON 

Nous avons reçu de ce lecteur un 
courrier intéressant, dans lequel il 
nous suggère quelques idées pour 
des articles, mais où nous avons 
aussi relevé ce passage 
significatif : 

"Depuis 3 ans que je possède un 
ORIC, j'ai mis au point 5 program¬ 
mes utilitaires dont je ne suis pas 
trop mécontent... attendez ce n'est 
pas de l'auto-satisfaction ! 

Faisant partie de 4 associations et 
occupant dans chacune d'elles les 
postes soit de comptable ou de 
trésorier général, de plus ces asso¬ 



ciations n'étant pas des plus 
fortunées, j'apporte mon concours 
bénévole avec mon matériel disons 
de bas de gamme et mes "modes¬ 
tes" connaissances en informa¬ 
tique. Les travaux d'Administration : 
lettres, circulaires, étiquettes ou de 
gestion recouvrement des cotisa¬ 
tions, comptabilité s'en trouvent lar¬ 
gement facilités et le personnel 
bénévole grandement soulagé des 
tâches répétitives et fastidieuses. 

En conclusion, sans vouloir être 
divin, j'entrevois un brillant avenir 
pour ce genre d'activités, ouvert à 
la micro-informatique familiale. Aus¬ 
si c'est là que THEORIC pourrait 
apporter une aide très appréciée 
aux petits programmeurs que nous 
sommes (les petites associations 
n'ayant pas les moyens de se payer 
des informaticiens à 2 000 ou 3 000 
F la journée !)" 

L'ORIC a encore un avenir certain 
et, dans les petites tâches où il 
n'est pas nécessaire de posséder 
un gros système, il reste bien placé 
au niveau du prix... 



Peu convaincue par l'efficacité du 
TELESTRAT, la société IN (Infor¬ 
matique et Nature) propose aux 
utilisateurs d’ATMOS... de con¬ 
server leur machine ! Elle de¬ 
viendra alors ATMOS 2, grâce à 
une modification effectuée gratuite¬ 
ment par IN, à tout acheteur du 
logiciel MS - TEL. Cette modi¬ 
fication vise à permettre l’utilisation 
de l'ATMOS en micro-serveur 


monovoie. Une adaptation permet 
la liaison avec le MINITEL et la prise 
téléphonique. Le modulateur UHF 
est supprimé pour faire place au 
circuit de détection de sonnerie. 
Un poussoir RESET est implanté 
en lieu et place de la prise 9 V 
d'alimentation car cet ensemble est 
prévu pour fonctionner avec 
lecteur de disquettes uniquement. 

Les cordons nécessaires sont 
livrés avec la transformation et le 
logiciel. 

Enfin, si vous ne voulez pas faire 
transformer votre ATMOS, sachez 
qu'il est possible d'acheter directe¬ 
ment un "ATMOS 2". 

Pour tout renseignement, contac¬ 
tez IN qui vous informera égale¬ 
ment sur les autres produits dispo¬ 
nibles pour ATMOS. 

Tél : 90.95.20.04 ou sur le serveur 
Minitel au 90.95.21.00. 

■■■■■■■ 

CLUBS 

ORIC 

Les clubs ORIC existent mais peu 
nombreux sont ceux qui décident 
de se faire connaître... Pourtant, 
THEORIC ouvre gracieusement 
ses colonnes à ce genre d'infor¬ 
mation ! Evidemment, si vous 
considérez qu'un club est fait pour 
une minorité... 

Ce n'est pas le cas pour : 

MICRO-LOISIRS 
Ecole Marie Curie 
40 aie de Tourcoing 
59960 NEUVILLE EN FERRAIN 
qui vient de réouvrir ses portes et 
dispose d'un ORIC-1 et de deux 
ATMOS. Pour tout renseignement, 
contacter Mr ODOU au : 

20.37.37.65. 

CMCL 

20 rue Contant 
93220 GAGNY 

Une section ORIC se réunit le jeudi 
à 20 h. Echange d'idées, mise au 
point de programmes, travail en 
commun etc... sont les différentes 
activités possibles au Microtel-club 
de Gagny. 

De plus, un concours de logiciels y 
est organisé. N'hésitez pas à écrire 
afin d'en connaître les modalités* 
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UN COMPAGNON BAVARD : 
LE SYNTHETISEUR VOCAL 
TECHNI-MUSIQUE 



TMPI ^nous n'allons pas écrire le 
nom en entier à chaque fois !) avait 
déjà offert aux possesseurs de 
l'ORIC un excellent cours de sol¬ 
fège. Voici maintenant qu'elle dote 
ORIC de la parole, au moyen d'un 
synthétiseur vocal et de son 
logiciel, livré sur cassette. 

Pourquoi faire parler l'ordinateur ? 
Tout simplement parce que l'utili¬ 
sation d'un logiciel devient alors 
plus conviviale. Pensez en parti¬ 
culier aux éducatifs destinés aux 
plus jeunes, ceux qui ne savent 
pas encore lire. La synthèse vocale 
rend plus facile l'utilisation de l’ordi¬ 
nateur et n'impose plus la présence 
d'un adulte aux côtés de l'enfant. 
Et comment ne pas penser aussi à 
ceux qui sont privés de la vue et qui 
ne peuvent, de ce fait, utiliser 
l'ordinateur... 

Mais la synthèse vocale, c'est aussi 
un moyen de rendre un logiciel, 
voire un jeu, beaucoup plus at¬ 
trayant. Enfin, il y a là tout un 
domaine à explorer, ce qui est loin 
d'être inintéréssant ! D’ailleurs, 
pour ceux qui désireraient en savoir 
plus sur la question, TMPI conseille 
un ouvrage, édité par Cedic/ 
Nathan "Parole et Micro", vendu au 
prix de 175 F. 

Le synthétiseur vocal proposé par 
TMPI permet l'utilisation de pho¬ 
nèmes, ce qui procure une voix 
robotique, ou de diphonèmes ou 


Denis BONOMO 


T echni-Musique et Parole Informatique (c'est le nom com¬ 
plet de la société) s'est spécialisée dans les appli¬ 
cations vocales et musicales à partir des micro¬ 
ordinateurs : un créneau bien choisi car assez vide ! 


triphonèmes qui permettent de se 
rapprocher de la voix humaine. En 
fait, tout est fonction du logiciel qui 
est donné en pâture à l'ordinateur ! 
Celui que vous propose TMPI est 
assez bien conçu puisqu'il permet 
de créer, écouter, modifier et 
sauvegarder toutes les séquences 
de phonèmes qui seront utilisées, 
par la suite dans vos logiciels. TMPI 
signale également la possibilité de 
création, par leurs soins, de mots à 
la demande, ce qui peut être 
intéressant pour des applications 
particulières. 

L'utilisation est très simple : une 
liste de 102 codes, représentant 
les phonèmes et silences, est 
fournie à l'utilisateur. En regard de 
chaque code se trouve le pho¬ 
nème correspondant, ainsi qu'un 
mot, donné en exemple, dans 
lequel il se trouve. Ceci permet de 
choisir au mieux entre deux sons 
proches l'un de l'autre. Par 
exemple, le "b" que l'on entend 
dans “arbre" n'est pas le même que 
dans "tourbe"... 

Du côté "hard", le synthétiseur est 
organisé autour d'un MEA 8000, 
composant plus adapté au marché 
francophone que le célèbre SPO 
256, incapable de prononcer 
correctement les "u" ! Le circuit 
imprimé est contenu dans un petit 
boîtier raccordé au bus de l'ORIC 
par une nappe de quelques 



centimètres terminée par le con¬ 
necteur adéquat. La sortie son s'ef- 
s'effectue sur un jack. Un cordon 
de liaison est fourni avec le synthé¬ 
tiseur, permettant de le raccorder à 
l'entrée son de l'ORIC. C'est donc 
sur le haut-parleur de ce dernier 
que seront prononcées les pre¬ 
mières paroles de la machine. Rien 
ne vous interdit d'utiliser un ampli¬ 
ficateur extérieur! 

Le synthétiseur utilise les adresses 
# 3FE et # 3FF. Vous devrez en 
tenir compte si d'autres extensions 
sont connectées au bus. 

A notre avis, ce synthétiseur vocal 
représente un excellent complé¬ 
ment pour l'ORIC. De plus, TMPI va 
le proposer à son réseau de reven¬ 
deurs à un prix très attractif, à 
l'occasion de cette fin d'année. 
Pour 220 F, votre ORIC peut 
devenir aussi bavard qu'une pie. 
Ne ratez pas l'occasion car il 
risque de ne pas y en avoir 
pour tout le monde ! 
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VITRINE DU LOGŒL 


"MATH-SAM" 

BLEU-CIEL INFORMATIQUE 
Educatif 


A.T.M 

COBRA SOFT 
Arcade 


Educatif n'est pas synonyme de 
rébarbatif... La preuve en est ap¬ 
portée par ce logiciel destiné aux 
classes du primaire. Il propose à 
l'élève de travailler le calcul mental, 
au moyen d'une série d'exercices 
aux niveaux de difficulté variables. 
La vedette du logiciel est Sam, une 
sorte de petit animal venu d'un 
autre monde, à l'allure d'enzyme 
glouton (il fallait bien trouver une 
ressemblance, non ?). 

Divers exercices sont proposés, 
ayant pour thème les opérations de 
base, additions, soustractions, mul¬ 
tiplications à un ou plusieurs 
chiffres, (avec ou sans retenue), 
ainsi que les égalités et inégalités. 
En fonction des résultats, l'ordi¬ 
nateur attribuera un commentaire. 
Le temps de réflexion est, bien 
entendu, limité. 

Côté présentation et réalisation, on 
ne peut rien reprocher au logiciel 
qui sait rester attractif, à la fois par 
les bruitages et animations d'écran 
qu'il propose, que par le soin 
apporté à sa réalisation (couleurs, 
gros caractère, etc...). 

En bref, et puisqu'il faut une 
conclusion, un bon éducatif qui 
prouve, s'il en était besoin, que 
l'ORIC peut trouver sa place sur les 
bancs d'une école ! 



Eh ! Vous ne savez pas ! Voilà un 
nouveau jeu d'arcade pour ORIC ! 
Qui l'eut cru ? De plus, il a été 
pondu par un Français, Olivier 
Patouillard, qui n'a rien à envier aux 
programmeurs anglais de Xénon ou 
autre classique ! Cocorico ! Bon. 
Et si on vous parlait du jeu ? Il faut 
dire que A.T.M, ça n'est pas très 
évocateur comme titre... Derrière 
ce sigle se cachent, tout simple¬ 
ment les initales de Air, Terre, Mer. 
Engagez-vous qu'ils disaient ! 
Mais non. ce n'est pas une pub du 
ministère de la défense ! 

On s'y croirait, pourtant, surtout 
après avoir vu la belle page écran 
où l'on aperçoit le nez d'un chas¬ 
seur à réaction, la tourelle d'un char 
et la silhouette d'un sous-marin 
Hep, vous là-bas ! Qui moi ? Oui 
vous, le super héros ; il va falloir, 
aux commandes de l'avion, éviter 
les mongolfières (ah bon ?) de 
l'ennemi ainsi que les missiles sol- 
air. Tout un boulot, pour le tableau 
1. Si vous y parvenez, il faudra, au 
cours du second tableau, piloter le 
char et détruire les avions qui 
infestent le ciel, tout en évitant les 
rochers qui composent le paysage. 
Si vous réussissez à passer cette 
étape, vous vous retrouverez 
commandant d'un sous-marin dont 
la mission consiste à... vous l'avez 
deviné, détruire les appareils 
ennemis tout en évitant leurs 
ogives et leurs mines. 

Quelle mission ! De plus, le fuel 
décroît à vue d'œil. Heureusement 
qu'il est possible de ravitailler ! 

Avec plusieurs niveaux de diffi¬ 
cultés, ce jeu, s'il ne présente pas 
un caractère original, a le mérite 
d'être bien réalisé : bruitages, ani¬ 
mations rapides, couleurs. Vous 
qui pleuriez de ne rien trouver de 
nouveau pour ce pauvre ORIC, 
allez brûler un cierge pour que 
Cobra ne vous oublie pas et 
continue sur sa lancée ! 


VITRINE 

DU 

LIBRAIRE 

"Parole et Micros" 

BENOIT ET WEISSGER- 
BER 

(Cedic/Nathan) 

175 F 

Si la parole informatique vous 
passionne, voici un ouvrage que 
vous vous devrez de posséder. 
Epais de 320 pages, il explique et 
détaille toutes les subtilités rela¬ 
tives au fonctionnement du MEA 
8000, ce chip qui équipe (entre 
autres) le synthétiseur vocal de 
l'ORIC fabriqué par TMPI (Techni 
Musique et Parole Informatique). 

Il permettra au lecteur, soucieux de 
tirer le meil'eur parti de son synthé 
vocal, d'écrire un logiciel de com¬ 
mande adapté à ses besoins. 
Plusieurs exemples sont donnés 
pour divers microprocesseurs (dont 
le 6502) et micro-ordinateurs (dont 
l'ORIC). 

A notre avis, cet ouvrage, assez 
technique, est un excellent complé¬ 
ment qui devrait satisfaire les pas¬ 
sionnés de langage machine et de 
technique, ainsi que tous ceux qui 
veulent accéder à toutes les pos- 
siblités de leur synthé vocal. Une 
mine de richesses en la matière ! 







Q 
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CES FICHIERS 

DONTTOUT LE 



O. VASIUEVIC 

A vant d'aborder le chapitre traitant de l'organisation des 
fichiers et des méthodes d'accès, nous vous propo¬ 
sons comme première approche, des tout petits pro¬ 
grammes dont nous vous livrons les listings. Ces programmes 
vous mettront sur la voie de deux utilisations particulières 
des fichiers. 



gardé variable par variable, peut 
être lu par une seule commande 
"GET". Le texte ainsi chargé se 
présente sous forme des lignes 
basic de remarques (REM). Il suffit 
de supprimer les indications "REM" 


Vous connaissez certainement 
déjà l'organisation des lignes d'un 
programme en Basic et vous avez 
probablement constaté qu'il s'agit 
tout simplement d'une suite de 
codes ASCII, c’est-à-dire d'un 
texte. D'où l'idée d'une première 
application : un fichier séquentiel 
de données représentant un pro¬ 
gramme. Pour quelle raison faut-il 
abandonner la manière habituelle si 
commode et simple pour écrire des 
programmes ? Tout simplement 
pour éviter de concevoir, écrire, 
saisir au clavier et tester. Les fich¬ 
iers, eux, peuvent être conçus à 
partir d'un programme, ce qui vous 
libère complètement. Ceci nous 
conduit à une deuxième appli¬ 
cation : la programmation assistée 
par l'ordinateur à travers l'inter¬ 
prétation logique des données mi¬ 
nimales de base. L'interprétation 
des données et la génèse des 
lignes de basic sdht liées étroite¬ 
ment. 

Cette idée n'est pas tout à fait 
nouvelle. Certains systèmes d'ex¬ 
ploitation de disques comportent 
une commande de sauvegarde et 
de lecture des fichiers sous forme 
de texte. Ces fichiers sont com¬ 
patibles avec l'écriture-lecture des 
chaînes de caractères en mode sé¬ 
quentiel classique (variables alpha¬ 
numériques). Ainsi un fichier sauve- 


Listir.9 No 1 
************ 


100 REM MODEL D'INTERPRETEUR-GENITEUR DES PROGRRMES EN BASIC 
110 REM ASSEMBLAGE EN MODE SEQUENTIEL, OCTET PAR OCTET 
120 GOTO200 : REM APPEL DU "GENITEUR" 

130 K=1 IREWINDF 

140 ; FORI=0TON-1■REM LES LIGNES 130-190 SONT OCCUPEES PAR LE "CHARGEUR-LANCEUR" 
150 • ! TAKEF i REM AX 

Io0 POKEDEPART+I,AX’REM COPIE EN MEMOIRE CENTRALE DU FICHIER "BASIC" 

165 IFI=P-1THENF=F+1>!REWINDF 
170 ’PRINTINEXTI 

177 >F0RI=1T0F>FS=M1D*CSTR*CI >,2,1 >'!DEL"BASIC"+FS+".DAT"■NEXTI 

178 REM ON A DETRUIT LES FICHIERS UTILITAIRES DEVENUS INUTILES 

180 1 D0KEtt9A, DEPART+1 ■ D0KEH9C, DEPART +1+N 1 REM MODIFICATION DES POINTEURS BASIC 
190 >!SAVE"FILS1"‘RUN-REM SAUVEGARDE DU PROGRAMME ET DEMARRAGE AUTOMATIQUE 
200 HIMEMK8FFF • DEPART=# 1000 : 1 =8 ■ P=0 ' N= 1000 ' DIMXC 10, 10>,YC 10,10 >,ZC 10, 10 > 

205 F = 1 'F*="BASIC"+MID*CSTR*CF>,2,1 >♦" ,S="+M1D*CSTR*C F >, 2,1 > 

210 !CREATEF* 

220 X=330■Y=360*2=390■REM POINTEURS DES LIGNES DE L' "INTERPRETEUR" 

230 L=15 ' AX=DEPART+L > GOSUB420 ■ CX=AX ■ DX-8X • AX=N • GOSUB420 ■ N=N+10 • I-I+L 
240 !WRITEF = REM0,CX,DX,AX,B7., 162,58,148,58, 177,48,58, 178-52 
250 REM ON A ECRIT 0,No OCTET,No LIGNE,"HIRES ; CLS : PAPER0 ; INK4" 

260 PEADAS AS=ASCCA* >-87 ONASGOSUBX,Y,Z ; REM ENTREE SELECTIVE "INTERPRETEUR" 

270 FORJ=1TOPLFORK=1TOPO REM BOUCLE DE LH GENESE DE LA LIGNE COURANTE 
280 GOSUB440 >IFP>0THEN290 

285 IFI>200THENF=F +1 ; F*=" BAS IC " +MI D*C STR*C F >, 2,1 >+ ", S= " +M1 D*CSTR*< F >,2,1> 

286 IFI>200THENP-1-1•!CREATEF* 

290 NEXTK,J‘REM FIN GENESE, ECRITURE DES TROIS ZEROS DE LA FIN DU PROGRAMME 
300 !URITEF'REM 0,0,0 

310 1=1+2'N=I■PRINTN REM NOMBRE TOTAL D'OCTETS DU PROGRAMME "FILS" GENERE 
320 GOTO130*REM APPEL DU "CHARGEUR-LANCEUR" 

330 RERDPL,PO ■ F0RK=1TOPL■READXC K,1>■FORJ-2T0P0 >XC K,J>=XC K,1)■NEXTJ,K 
340 FORJ=1TOPO READYC 1, J),ZC 1, J> > F0RK=2T0PL ‘ YC K, J >»YC 1, J>’ZC K, J>=ZC 1, J> 

350 NEXTK,J RETURN-REM FIN PLAN X 

360 READPL,PO-FORK»1TOPL-READYC K,1>>FORJ=2T0P0■YC K,J >=YC K,1>’NEXTJ,K 
370 FORJ= 1 TOPO READZC 1, J>,X< 1,J)- F0RK=2T0PL• ZCK,J)=Z< 1, J> X<K, J)»X< 1, J) 

380 NEXTK,J‘RETURN : REM FIN PLAN Y 

390 READPL,PO >FORK=1TOPL-READZC K,1> FORJ-2T0P0■ZC K,J>=ZC K-1)■NEXTJ,K 
400 FORJ= 1 TOPO READXC 1, J ), Y< 1, J > > F0RK=2T0PL • XC K, J >=XC K, 1 ) = YC K, J )=YC K, 1 ) 

410 NEXTK,J : RETURN : REM FIN PLAN Z 

420 DOKE#0O,A7. AX=PEEKC «00 > ■ B7.-PEEKC #01 )'REM SxR D'ECRITURE SUR 2 OCTETS LO/HI 

430 RETURN REM POUR No OCTET LIGNE SUIVANTE ET No LIGNE EN COURS 

440 REM CALCUL DES PARAMETRES DU DESSIN H IRES 

450 V=CXC J,K)+YCJ,K)>*C0SCPI24)'V=INTCV)'REM X CURSET 

460 W=-Zc J.KHCXC J,K)-YCJ,K))*COSCPI24),W=INTCW)+120 = REM Y CURSET 

470 I FK=POTHENV 1 =C XC J, 1 )+YC J, 1 mC0SCPl'4)Vl = !NTCVl > 

480 IFK=POTHENWl=-ZC J, 1 >+C XC J, 1 >-”C J, 1 > >*COSC PI/4 ) > W1 = INTC Ml 1+120 ■ GOTO510 
490 V1=C XC J-K+l )+YC J, K+l ) )*COSC PI24>‘V1 = INTCV1> 

500 W1=-ZC J-K+l l+CXC J,K+l >-YC J-K+l 1 )*COSC PI/4 ) ‘ U1 = INTC U1 >+120 
510 X=V1-V«Y«W1-W‘REM PARAMETRES POUR DRAW 

520 REM CALCUL DES ECARTS PAR RAPPORT AU NOMBRE DE CARACTERES DE LIGNE DE 8ASE 
530 A=C X< 0 >+C Y< 0 >+C V >99 >+C V< -99 >+C W >99 >+C WC -99 >+C X >99 >+C X< -99 >+C Y >99 >+C Y< -99 > 
540 B=C V< 10ANDV >-10 >+C W< 10ANDW >-10 >+C X< 10HNDX >-10 >+C Y< 10ANDY >-10 > 

550 A=-A+B‘A1=A'REM TOTAL ECART C+ OU -> 

560 AX=A+DEPART + I+24 1 I = l+24+Al GOSUB420• C‘2=A7. DX=BX■ AX»N■ GOSUB420'N=N+10 
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570 REM ON ECRIRA'0,No OCTET,No LIGNE."CURSET " 

380 IWRITEF'REM 0,CX,DX,AX,BX, 170,32 

580 fl*-""'A*=STR*CV)'GOSUB640'REM ECRITURE OE X 

600 IWRITEF'REM 44 

610 fl*-"" A*=STR*<W>‘GOSUB640REM ECRITURE DE Y 

620 !WRITEF■REM 44,49,58,172,32 

630 GOTO690' REM ON fl ECRIT ", 1 DRAW " 

640 FORM-2TOLENCA*>'REM S/R TRANSFORMATION DES VALEURS EN OCTETS ASCII 
650 AX=ASC<MID#( fl*,M, 1 )) 

660 IWRITEF'REM AX 
670 NEXTM 
680 RETURN 

690 IFX<0THEN!WRITEF'REM 205 

70O IF X<0THENX=-X■REM ECRITURE CODE DU SIGNE ET INVERSION DE LA VALEUR 

710 A*=""'A*=3TR*( X)'GOSUB640'REM ECRITURE DES PARAMETRES ET 

720 IWRITEF'REM 44 

730 IFY<0THENIWRITEF REM 203 

740 IF Y<0THENY—Y 

750 fl*=""= A*=STR*< Y>■GOSUB640 

760 IWRITEF REM 44,49 

770 RETURN‘REM ON TERMINE PAR ET LE PARAMETRE COULEUR ENCRE "1“ 

780 DATA X,3,4,30,60,90,30,30,70,30,70,70,30,70 

790 REM LES LIGNES DATA PEUVENT ETRE ACCOLLEES AU PROGRAMME PAR !MERGE"DATA" 
800 END* 


LiatiriS No 2 
************ 


1U0 REM MODEL D'INTERPRETEUR-GENITEUR DES PROGRAMES EN BASIC 
110 REM HSSEMBLAGE EN MODE SEQUENTIEL, LIGNE PAR LIGNE 
120 GOTO200'REM APPEL DU "GENITEUR" 

130 'K-0F-1'IREWINDF 

140 'FORM-100OTON-10STEP10'A*-"" ‘REM "CHARGEUR-LANCEUR" 

150 ' ITAKEF REM A7..A* 

151 L-LENCA* ) 'POKEDEPART+K,AX'REM COPIE EN MEMOIRE CENTRALE DU FICHIER "BASIC” 
132 FOR J=1T0 L 

160 AX=ASC<MID*<A*.J,11) POKEDEPART+K+J,AX 

165 'NEXT J 

166 =K=K+J‘J-0 IFM-1030THENF=F+1>IREWINDF 
170 ' PRINTK ‘NEXTM ' F0RM-1T03 

175 ITAKEF REM AX 

176 'POKEDEPART+K+M,AX■NEXTM 

177 F0RI-1T0F F*=MID*<STR*<I >,2,1 >'IDEL“BASIC"+F*+".DAT"■NEXTI 

178 ‘REM ON A DETRUIT LES FICHIERS UTILITAIRES DEVENUS INUTILES 

180 'D0KE#9A,DEPART +1 ' D0KE#9C .• DEPART+1 +1 ‘REM MODIFICATION DES POINTEURS BRSIC 
190 ISAVE"FILS2" RUN REM SAUVEGARDE DU PROGRAMME ET DEMARRAGE AUTOMATIQUE 
200 HIMEMH8FFF‘DEPART-H1000'1=0'P-0‘N-1000'DIMXC10,10>,Y<10,10),Z<10,10) 

205 F-1'F*="BRSIC"+MID*< STR*< F >, 2,1 >+", S- "+MI D*< STR*< F >, 2,1 > 

210 !CRERTEF* 

220 X-330’Y-360'Z-390'REM POINTEURS DES LIGNES DE L' "INTERPRETEUR" 

230 L-15 = AX-DEPART+L 1 GQSUB420 'N-N+10' I-I+L 

235 A*«A*+CHRS( 162)+" ‘ " +CHR*'". 148)+" ■ “+CHR*C 177 )+"0 ■ "+CHR*< 178)+"4" 

240 IWRITEF‘REM 0,A* 

250 A*-"" REM ON A ECRIT 0,No OCTET,No LIGNE,"HIRES■CLS'PAPER0'INK4" 

260 READB* 1 AS-ASCCB*)-87'ONASGOSUBX,Y,Z'REM ENTREE SELECTIVE "INTERPRETEUR" 

270 F0RJ-1T0PL = F0RK-1T0P0 ‘ REM BOUCLE DE LA GENESE DE LA LIGNE COURANTE 
280 GOSU6440 ■IFN>1060THEN29O 

285 IFN= 1060THENF-F+1 F*="BASIC"+MID*C STR*< F ),2,1 )+",S=“+MID*CSTRSC F ),2,1 ) 

286 IFN-1060THEN!CREATEF* 

290 NEXTK.J REM FIN GENESE, ECRITURE DES TROIS ZEROS DE LA FIN DU PROGRAMME 
295 F0RM-1T03 
300 IWRITEF REM 0 
305 NEXTM 

310 I-I+2PRINTI REM NOMBRE TOTAL D'OCTETS DU PROGRAMME "FILS" GENERE 
320 GOTO130 REM APPEL DU "CHARGEUR-LANCEUR" 

330 READPL,PO «FORK-1TOPL•RE ADX(K,1)■FORJ-2T0P0‘XC K,J)»XC K,1)‘NEXTJ,K 
340 F0RJ-1T0P0> READYC 1, J>,Z< 1, J) >FORK-2TOPL ' Y< K, J >=YC 1, J)'ZC K, J )=ZC 1, J) 

350 NEXTK.J RETURN REM FIN PLAN X 

360 READPL,PO■FORK-1TOPL'READYCK,1>'FORJ-2T0P0‘YC K,J >=Y< K,1>'NEXTJ,K 
370 F0RJ-1T0P0‘READZC 1,J),X< 1, J)'F0RK-2T0PL 'ZCK, J)*Z( 1, J)'XCK, J)=XC 1, J) 

380 NEXTK.J RETURN REM FIN PLAN Y 

390 READPL,PO'FORK-1TOPL'READZCK,1)'FORJ-2T0P0'ZCK,J>=ZCK-1)■NEXTJ,K 
4U0 FOR J-1 TOPO ' RE ADXC 1, J >, YC 1, J > • F0RK-2T0PL XCK, J)«XCK, 1 >YC K, J )=Y( K, 1 > 

410 NEXTK.J RETURN REM FIN PLAN Z 
420 rt*=""‘DOKE#00,AX DOKEH02,N 

422 FORM-0TO3 A*=A*+CHR*CPEEK<M))'NEXTM■REM S/R D'ECRITURE SUR 2 OCTETS LO/HI 

430 RETURN REM POUR No OCTET LIGNE SUIVANTE ET No LIGNE EN COURS 

440 REM CALCUL DES PARAMETRES DU DESSIN HIRES 

450 V-CXC J, K )+YC J,K ) )*COSC PI/4 ) ‘V-INTC V )■ REM X CURSET 

460 W—ZC J,K )+C X< J,K >-YC J,K >)*C0SCPI/4 ) ' W-INTC W )+120 ' REM Y CURSET 

470 IFK-P0THENV1-CXCJ,1)+Y<J,1>>*COSCPI/4>'Vl-INTCVI) 

480 IFK-POTHENW1—Z< J, 1 )+CX< J, 1 )-Y< J, 1 ) )*COSC PI/4 ) ■ Wl-INTC U1 )+120 ' GOTO510 
490 Vl-CXC J.K+l >+Y( J.K+l ) >*C0SCPI/4 )■ Vl-INTC VI ) 

500 Wl—ZC J.K+l )+CXC J.K+l )-Y( J.K+l ))*C0SCPI/4)'W1-INT(W1 )+120 
510 X-Vl-V'Y-Wl-W'REM PARAMETRES POUR DRAW 

520 REM CALCUL DES ECARTS PAR RAPPORT AU NOMBRE DE CARACTERES DE LIGNE DE BhSE 
530 A-C XC0 )+C Y< 0 >+C V >99 )+C VC -99 >+C W >99 >+C WC -99 )+( X >99 >+( XC -99 )+< Y >99 >+C YC -99 ) 
540 B-C V< 10ANDV >-10 )+C W< 10ANDW >-10 )+C XC 10ANDX >-10 )+C Y< 10ANDY>-10 ) 

550 A—A+B'Al-A'REM TOTAL ECART C+ OU -) 

560 AX-A+DEPART+I+24■I=1+24+A1'G0SUB428'N-N+10 
570 REM ON ECRIRA'0,No OCTET,No LIGNE,"CURSET " 

580 A»-A»+CHR*C170)+" " 

590 B*=""'B*=STR*<V)'GOSUB640■REM ECRITURE DE X 
600 A*=A*+"," 

610 B*-""'B*-STR*CW) 1 GOSUB640'REM ECRITURE DE Y 
620 A»=fl*+",1'"+CHR*( 172)+" " 

630 GOTO690■REM ON A ECRIT ",1'D RAW " _ 


pour que le programme devienne 
opérationnel. Cette méthode peut 
être extrêmement utile. Tout est 
possible, de simple aide à l'introduc¬ 
tion des données, à la récursivité et 
l'apprentissage de l'intelligence arti¬ 
ficielle. Dans les exemples qui vous 
sont proposés, le "Géniteur des 
lignes Basic est associé à riNTER- 
PRETEUR" des données. 

Quoi de plus pénible que la saisie 
des données en grand nombre, ou 
récriture des lignes interminables 
des DATAS ! 

Dans tous les cas où les données 
suivent une logique quelconque, il 
est possible de concevoir un "ma¬ 
crolangage" qui guide l'interpréteur 
vers un algorithme approprié. Ainsi, 
en partant d'un strict minimum de 
paramètres associés aux codes, 
l'interpréteur calcule tous les para¬ 
mètres manquants. Dans le mo¬ 
deste exemple choisi, le problème 
posé au départ est le suivant : des¬ 
siner une perspective cavalière de 
trois rectangles alignés, situés dans 
trois plans différents. Le nombre de 
paramètres nécessaires serait nor¬ 
malement : 3 plans x 4 points x 3 
coordonnées = 36. Profitant de la 
loi qui lie tous ces points, il suffit de 
connaître le plan de base (X,Y ou 
Z), le nombre de plans, le nombre 
de points dans un plan, les coor¬ 
données des trois plans, et les 
coordonnées des points du pre¬ 
mier plan, soit en tout 14 para¬ 
mètres ! Plus le nombre de plans et 
de points est élevé, meilleur est le 
rendement. C’est un tout petit 
exemple, à vous de développer 
vos propres applications. 

En ce qui concerne le "Géniteur", 
son principe est très simple. Il 
numérote les lignes, calcule les 
numéros d'octets des débuts des 
lignes, code les instructions du 
Basic et complète le tout par les 
paramètres nécessaires fournis par 
r "INTERPRETEUR". Il ajoute aussi 
tous les "Zéros" des fins de lignes 
ou du programme. 

Le premier programme stocke les 
lignes ainsi conçues, octet par 
octet, sur un fichier séquentiel. 
Compte-tenu des défauts de 
FTDOS, les variables utilisées sont 
des variables entières (%). Néan¬ 
moins le FTDOS refusant la lecture 
au-delà de 278 valeurs, il est néces¬ 
saire de créer successivement plu- 
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sieurs fichiers. Ceci explique la 
présence des variables F et F$ et 
des lignes 165, 205, 285, et 286. 
Sans les problèmes évoqués, on 
aurait pu créer un fichier unique, le 
nombre de variables stockées 
n'étant limité que par la place dis¬ 
ponible sur la disquette. 

Ceci est le cas de tous les DOS, y 
compris le Sédoric. Les utilisateurs 
du microdisque peuvent donc sup¬ 
primer tout ce qui est relatif à la 
création et lecture de plusieurs 
fichiers. Ils doivent aussi modifier 
les commandes. 

Remplacer : 

ICREATE-NOM, S = 1" par OPEN 
S, "NOM", 1 

IWRITE1 : REM liste des variables 
par PUT 1, liste des variables 
IREWIND1 parREWINDI 
ITAKE1 : REM liste des variables 
par TAKE, liste des variables 

C'est tellement plus simple ! 

De plus, une ligne comportant un 
ordre d'écriture ou de lecture pour¬ 
ra comporter une autre ou plusieurs 
autres commandes basic ainsi que 
la remarque alors qu'avec FTDOS 
ceci est impossible. 

La méthode octet est très lente. 
(Néanmoins nettement plus rapide 
avec Sedoric). Pour l'améliorer, 
nous groupons tous les caractères 
d'une ligne dans une chaîne de 
caractères à l'exception des "Zé¬ 
ros". Ainsi nous gagnerons et en 
rapidité et en place. La variable 
chaîne nous servira de tampon. 
Une autre méthode serait d’as¬ 
sembler les lignes en mémoire 
centrale en créant un "buffer", mais 
pour les applications importantes, 
vous aurez besoin de toute la 
mémoire. Le listing n° 2 correspond 
à la variante "chaîne”. 

Nous nous arrêterons là en ce qui 
concerne la méthode séquentielle, 
car dans le cas où nous désirons 
modifier une ligne après coup non 
seulement ceci prendrait beaucoup 
de temps, mais toutes les lignes 
suivantes seraient perdues du fait 
de l'organisation séquentielle. 

Nous utiliserons de préférence les 
fichiers à accès direct (listing n° 3). 

La première partie du programme 
reste inchangée, à pari les ins- 


640 REM S/R TRANSFORMATION DES VALEURS EN OCTETS ASCII 
650 AS=AS+MIDSCBS,2,LENCBS>-1 ) 

680 RETURN 

690 IFXC0THENAS=AS+CHRSC205) 

700 IF X<0THENX=-X ! REM ECRITURE CODE DU SIGNE ET INVERSION DE LA VALEUR 
710 B*="" ! B$=STRSCX>'GOSUB640 1 REM ECRITURE DES PARAMETRES ET 
720 AS=AS+"," 

730 IFY< 0THENAS=RS+CHRSC205 ) 

740 IF Y<0THENY=-Y 

750 BS=""‘BS=STRSC Y)'GOSUB640'AS=A*+", 1" 

760 !WRITEF'REM 0,A* 

770 RETURN'REM ON TERMINE PAR ET LE PARAMETRE COULEUR ENCRE "1" 

780 DATA X,3,4,30,60,90,30,30,70,30,70,70,30,70 

790 REM LES LIGNES DATA PEUVENT ETRE ACCOLLEES AU PROGRAMME PAR !MERGE"DATA" 

800 END* 

---_i 


Listin9 du Pro9ramme résultant FILS 1 ou 2 Dessin créé Par le 

****************************************** ****************** 

Pro9ramme FILS 1 ou 2 
********************* 


1000 HIRES 1 CLS‘PRPER0‘INK4 
1010 CURSET 42,90,1-DRAW 28,-29,1 
1020 CURSET 70,61,1'DRAW 0,-40,1 
1030 CURSET 70,21,1-DRAW -28,29,1 
1040 CURSET 42,50,1‘DRAW 0,40,1 
1050 CURSET 63,111,1'DRAW 28,-29,1 
1060 CURSET 91,82,1‘DRAW 0,-40,1 
1070 CURSET 91,42,1'DRAW -28,29,1 
1080 CURSET 63,71,1'DRAW 0,40,1 
1090 CURSET 84,132,1 DRAW 29,-28,1 
1100 CURSET 113,104,1'DRAW 0,-40,1 
1110 CURSET 113,64,1‘DRAW -29,28,1 
1120 CURSET 84,92,1 DRAW 0,40,1» 



Listins No 3 
************ 

100 REM MÛDEL D'INTERPRETEUR-GENITEUR DES PROGRAMES EN BASIC 

110 REM ASSEMBLAGE EN MODE DIRECT, LIGNE PAR LIGNE, AVEC MODIFICATION POSSIBLE 

120 GOTO200‘REM APPEL DU "GENITEUR" 

130 ‘K=0‘F=1 

140 ..REM "CHARGEUR-LANCEUR" 

150 < !TAKEF,<H-990V10‘REM A - /., AS 

151 ‘L=L£NC AS 1 ‘POKEDEPART+K,AM‘REM COPIE EN MEMOIRE CENTRALE DU FICHIER "BASIC" 

152 FOR J=1T0 L 

160 ‘ A7.=ASCC MIDS< AS, J, 1 ) ) ‘ POKEDEPART+K+J, A7. 

165 ‘NEXTJ 

166 ‘K=K+J‘J=0 ‘ IFM=1050THENI f =F+l ‘ IREWINDF 

170 ‘PRINTK■ NEXTM‘ !TAKEF,<M-990)/10 ‘REM AX,BX,C7. 

175 F0RM=1T03 

176 ‘POKEDEPRRT+K+M-1,AU=NEXTM'PRINTK+M-1 

177 ‘F0RQ=1TOF‘F*=MID*C STR*C Q),2,1>‘! DEL"BASIC"+F*+".DAT"‘NEXTQ 

178 REM ON A DETRUIT LES FICHIERS UTILITAIRES DEVENUS INUTILES 

130 ‘D0KE49A,DEPART+1■DÛKE49C,DEPART+1 +1'REM MODIFICATION DES POINTEURS BASIC 
190 i ! SAVE " FILS3 " ' RUN 'REM SAUVEGARDE DU PROGRAMME ET DEMARRAGE AUTOMATIQUE 
200 HIMEM#8FFF'DEPART=*1000‘I=0P=0‘N=1000'DIMX<10,10),YC10,10),ZC10,10) 

205 F=1'FS="BASIC"+MIDSC STRSC F ), 2,1 )+", D=" +MID*C STR*C F ), 2,1 )+ " , 100,13" 

210 ICREATEFS 

220 X=330‘Y=360‘2=390‘REM POINTEURS DES LIGNES DE L' "INTERPRETEUR" 

230 L=15A7.=DEPRRT+L'GOSUB420>N=N+10‘ I = I+L 

235 AS=A$+CHRSC162)+"‘"+CHRSC148>+"■"+CHRSC177)+"0‘"+CHRSC178)+"4" 

240 !WRITEF,CN-1000V10‘REM 0,AS 

250 A*=""REM ON A ECRIT 0,No OCTET,No LIGNE,"HIRES‘CLS‘PAPER0‘INK4" 

260 READBS‘AS=ASCC BS)-37‘ONASGOSUBX,Y,2 = REM ENTREE SELECTIVE "INTERPRETEUR" 

270 F0RJ=1T0PL 1 FORK=1TOPO‘REM BOUCLE DE LA GENESE DE LA LIGNE COURANTE 
280 GÛSUB440 ‘GOSUB560 ‘IFN71060THEN290 

285 IFN=1060THENF=F+1‘FS="BASIC"+MIDSC STRSC F),2,1)+",D="+MIDSC STRSC F),2,1) 

286 IFN=1060THEN!CREATEFS+",100,13" 

290 NEXTK, J ‘ REM FIN GENESE, ECRITURE DES TROIS ZEROS DE LA FIN DU PROGRAMME 
300 N=N+10‘!WRITEF,CN-1000)/10‘REM 0,0,0 

310 1=1+2 PRINT1‘REM NOMBRE TOTAL D'OCTETS DU PROGRAMME "FILS" GENERE 
320 GOTO800 = REM APPEL DU MODULE DE MODIFICATION DES LIGNES 
330 READPL,PO‘F0RK=1TOPL‘READXC K,1)‘FORJ=2T0P0‘XC K,J)=XC K,1) NEXTJ,K 
340 F0RJ=1T0P0 = READYC 1, J ), ZC 1, J)‘ F0RK=2T0PL ‘ YCK, J )=YC 1, J )‘2CK, J )=2C 1, J) 

350 NEXTK, J‘RETURN‘REM FIN PLAN X 

360 READPL,PO‘F0RK=1TOPL‘READYC K,1 )‘FORJ=2T0P0‘YC K,J )=YC K,1)‘NEXTJ,K 
3 70 FORJ=1TOPO‘READZC1,J),XC1,J)‘FORK=2TOPL‘ZC K,J )=ZC 1, J ) ■ XC K, J )=XC 1, J ) 

380 NEXTK,J‘RETURN REM FIN PLAN Y 

390 READPL,PO‘F0RK=1TOPL‘READZC K,1 ) ‘FORJ=2T0P0‘ZC K,J)=ZCK,1)■NEXTJ,K 
400 F0RJ=1T0P0 ‘ READXC 1, J ), YC 1, J )‘ F0RK*2T0PL ‘XCK, J)=XC K, 1 )‘YC K, J )=YC K, 1 ) 

410 NEXTK,J‘RETURN‘REM FIN PLAN Z 
420 A*="" DOKE#00,AXDOKE*02,N 

422 FORM=0TO3<AS=AS+CHRSCPEEKCM))■NEXTM>REM S/R D'ECRITURE SUR 2 OCTETS LO/HI 

430 RETURN‘REM POUR No OCTET LIGNE SUIVANTE ET No LIGNE EN COURS 

440 REM CALCUL DES PARAMETRES DU DESSIN HIRES 

450 V=CXC J,K)+YC J,K))*C0SCPI/4)‘V=1NTCV)‘REM X CURSET 

460 W=-ZCJ,K)+CXCJ,K)-YCJ,K))*COSCP1/4)‘W=INTCW)+120‘REM Y CURSET 

470 IFK=P0THENV1=C XC J,1)+YCJ,1))*COSC PI/4 )V1 = INTCV1) 

480 IFK=P0THENW1=-ZCJ,1)+CXCJ,1)~YCJ,1))*COSC PI/4)■W1 = INTC W1)+120‘G0T0510 
490 V1=CXCJ,K+1)+YCJ,K+1))*C0SCPI/4)•V1=INTCVI) 

500 W1=-ZC J,K+1 )+CXC J,K+1 )-YC J,K+1 ) )*COSC PI/4 )‘W1 = INTCW1 )+120 
510 X=V1-V‘Y=W1-W‘REM PARAMETRES POUR DRAW 

520 REM CALCUL DES ECARTS PAR RAPPORT AU NOMBRE DE CARACTERES DE LIGNE DE BASE 


> 
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Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de U h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 

Le numéro : 99.52.98.Tf. 




Théorie? 



-,30 X< 0 >+< Y< 0 >+< V >39 >+< V< -99 >+< W >99 >+( W< -99 >+C X>39 >+< X<-99 )+< Y >39 >+< Y< -99 ; 

54y B=< V< 10ANDV >-10 >+< W< 10RNDW >-10 >-K X< 10RNDX >-10)-KY<l0ANDY >-10 > 

550 A=-A+B R1=A RETURN REM TOTAL ECART <+ OU -> 

560 RL=R+DEPART+I+24 1=1+24+Al GOSUB420'N=N+10 
-J?0 REM OH ECRIRA 0/ Mo OCTET, No LIGNE, "CURSET " 

580 A*=A*+CHRï< 170>+" " 

590 BS=""*B$=STRSCV> GOSU8640 REM ECRITURE DE X 
o0O A*=A*+",“ 

610 B*="";B*=STRS<U > GQSUB640■REM ECRITURE DE Y 
*20 Rï=RS+", 1 "+CHRS', 172)+" " 

630 G0T0690 REM ON A ECRIT ",1 ; DRAW " 

640 REM S/R TRANSFORMATION DES VALEURS EN OCTETS ASCII 
650 A*=A$+MIDS< BS,2,LENI B* >-l > 

630 RETURN 

690 IFX<0THENA*=AS+CHR*( 205 > 

700 IF X<OTHENX=-X REM ECRITURE CODE DU SIGNE ET INVERSION DE LA VALEUR 
710 BS=""'B$ s STRS<X>'GOSUB640'REM ECRITURE DES PARAMETRES ET ", " 

720 A*=A$+"," 

730 IFY<0THENAS=A*+CHR*f205> 

740 IF Y<OTHENY=-Y 

750 B$=""'B*=STR$<Y> ■ G0SUB640'AS=RS+", 1" 

760 ! WRITEF, < N-1000 V10 ' REM 0,RS 

770 RETURN*REM ON TERMINE PAR ET LE PARAMETRE COULEUR ENCRE "1" 

780 DATA X,3,4,30,60,90,30,30,70,30,70,70,30,70 

730 'REM LES LIGNES DATA PEUVENT ETRE ACCOLLEES AU PROGRAMME PAR !MERGE"DATA" 
300 DATA 150 REM MODIFICATION DES LIGNES DEJA ECRITES 

810 READ X ! FORJ= 1 TOPO ' X( 2, J >=X 1 NEXTJ ' REM COORDONNES X DU 2er„e PLAN MODIFIEES 

815 REM CETTE MODIFICATION ARBITRAIRE PEUT ETRE REMPLACEE PAR UNE MODIFICATION 

816 REM LOGIQUE ORDONNEES PAR LES TESTS DE L'OCCUPATION DE L'ECRAN 
820 J=2 F=1 Q=N'N=1010+<J-l>*40 

830 F0RK=1T0P0 C*="".... 

840 ! TAKEF, ( N- 990V10REM AL, CS 

350 A$=MIDS<CS,1,4>'REM REPRISE No OCTET, No LIGNE 

860 ÜOSUB440 

870 RIPAGE=RIPAGE+A1+23-LENC CS > 

880 IF RIPAGE=0THENN=N+10'GOSUB570'GOTO910 

890 FORB=1T04 = POKEB-1,RSC< MIDS(AS,B,1> >'NEXTB * AL=DEEK(#00 >+RIPAGE 
900 GÙSUB420 N=N+10 GOSUB570 

310 NEXIK■PRINTRIPRGE,RIPAGE+I'IF RIPRGE=0THEN1020 

320 FÛRN=NTOQ-20STEP10 : REM LIGNES SUPERIEURES NON MODIFIEES 

930 IFN>1050THENF=2 

940 (TAKEF,(N-390V10 REM HL, CS 

950 AS=MIDSC CS, 1,4 > 'REM REPRISE No OCTET, No LIGNE 
360 GÛSUB440 

970 FORB= 1T04 POKEB-1, ASCC MIDSC AS, B, l'> > ' NEXTB ' RL=DEEK< #00 >+R IPAGE 
380 G0SUB420 

990 R$=AS+MIDSC CS,5,LENT CS >-4 > 

1000 (WRITEF,<N- 990>/10 ; REM 0,RS 
1010 NEXTN 

1020 N=Q GOTO130;APPEL pu "CHARGEUR-LANCEUR" END# 


Listin9 du Pro9ramme résultant FILS 3 
************************************* 


1000 HIRES ! CLS 1 PAPER0 1 1NK4 
1010 CURSET 42,90,1 DRAW 28,-29,1 
1020 CURSET 70,61,1 DRAW 0,-40,1 
1030 CURSET 70,21,l'DRRW -28,29,1 
1040 CURSET 42,50,l'DRRW 0,40,1 
1050 CURSET 127,174,ÎDRAW 28,-28,1 
1060 CURSET 155,146,l'DRRW 0,-40,1 
1070 CURSET 155,106,1 DRAW -28,28,1 
1080 CURSET 127,134,l'DRRW 0,40,1 
1090 CURSET 84,132,l'DRRW 29,-28,1 
1100 CURSET 113,104,1'DRAW 0,-40,l 
1110 CURSET 113,64,1 DRAW -29,28,1 
1120 CURSET 84,92,l'DRRW 0,40,1* 


Dessin créé Par le Pro9ramme FILS 3 
g********************************** 



tructions du DOS qui sont modi¬ 
fiées pour le Ftype direct. La suite, 
à partir de la ligne 800, correspond 
à la modification d'une ligne quel¬ 
conque et le décalage des numé¬ 
ros d'octets des débuts de lignes 
que cela provoque. 

Pour aller plus loin, vous pouvez 
suivre le raisonnement suivant : 

- Les "zéros” existent systéma¬ 
tiquement. Il n'est donc pas néces¬ 
saire de les sauvegarder. La partie 
"Charger" pourrait se charger elle- 
même. D'autre part le calcul des 
octets des débuts de ligne en cas 
de modifications est long et fait re¬ 
prendre toutes les lignes. Il suffit 
d'omettre cette indication et de 
calculer ces valeurs lors de la mise 
en place en mémoire par le char¬ 
geur ! En allant plus loin, les numé¬ 
ros des lignes peuvent très bien 
correspondre aux numéros d'enre¬ 
gistrements et donc être omises 
aussi. On leur donnera leur numéro 
définitif par le chargeur. Il vous 
restera à résoudre le problème des 
adressages directs et adressages 
conditionnels, les numéros des 
lignes appelées n'étant pas connus 
d'avance. Nous vous laissons cette 
partie d'analyse qui vous fera un 
excellent exercice et vous pro¬ 
posons une autre idée : 

- Un programme qui se déroule, 
entasse des renseignements, puis 
en tire des conclusions, se réécrit 
lui-même en fonction de ses 
conclusions, puis il se relance 
etc...! Vous voilà donc en face 
d'une entité intelligente qui vit et se 
développe sans aide extérieure ! 
Avant de clore ce premier chapitre 
sur les fichiers, signalons que pour 
certaines applications, vous aurez 
besoin de passer ou de conserver 
divers paramètres. Plusieurs possi¬ 
bilités vous sont offertes : fichier 
sur disque, genèse des lignes 
DATA, ou genèse des lignes 
comportant l'assignation directe 
des valeurs aux variables (B% = 3). 
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LCATMSK 

André GUICHARDON 

L a fonction LCAT du TDOS (système d'exploitation du 
Jasmin) permet d'éditer sur imprimante le catalogue 
d'une disquette. Le programme proposé ici améliore les 
possibilités de LCAT en donnant les adresses de début et de fin 
des différents fichiers. 


Ce programme permet de connaî¬ 
tre, d'afficher et d'imprimer les 
adresses de début et de fin de 
chaque fichier présent sur la dis¬ 
quette. Les fichiers ARY, DAT, 
SYS sont volontairement ignorés. 
La sortie s'effectue normalement 
à l'écran et sur l'imprimante. Un 
POKE #2120, #60 permet d'an¬ 
nuler l'option imprimante. POKE 
#2120, # EA la rend de nouveau 
disponible. Le contenu complet 
du catalogue des fichiers pré¬ 
sents sur la disquette est placé en 
RAM à partir de l'adresse 
#2300. Une page de #FF est 
ensuite placée à la fin de ce cata¬ 
logue, à la fois pour effacer les 
résidus d'anciens catalogues plus 
longs et pour placer une butée à 
la fin du catalogue. Sans cette 
précaution, le cas particulier où 
le nombre de titres présents sur 
le dernier secteur catalogue était 


égal au maximum poserait quel¬ 
ques problèmes, car le lecteur 
repartirait avec les données erro¬ 
nées du catalogue précédent res¬ 
tant en mémoire. Une paire de 
#FF aurait suffi, mais une page 
complète permet de clarifier les 
indications lorsqu'on observe le 
catalogue avec un moniteur. La 
mise en place du programme 
s'effectue à l'aide du Basic, puis 
un CALL # 2000 lance l'exécu¬ 
tion. Ce programme fonctionne 
avec le Jasmin 2 et l'Atmos. Le 
modèle d'imprimante ne devrait 
pas poser de problème. 

# 2001/# 200C 

Initialisation. Effacement de 
l'écran. Saut de ligne. Activation 
de l'imprimante. Entrée Overlay. 

#200D/#2020 

Initialisation du n° lecteur, n° 
face, n° piste et n° secteur pour 


lecture du titre de la disquette. 

#2021/# 2030 

Lecture du titre de la disquette et 
mise en place dans un tampon 
d'affichage. 

#2031/#2033 
Sortie Overlay 

# 2034/ # 204B 

Initialisation tabulation. Affichage 
du tampon-activation impri¬ 
mante. Saut de ligne, activation 
imprimante. 

#204C/# 2061 

Affichage du cadre activation 
imprimante. Saut à la ligne avec 
retour au début. Saut à la ligne - 
activation imprimante. Entrée 
Overlay. 

#2062/# 206B 

Initialisation n° piste et n° sec¬ 
teur pour lecture du 1 8r secteur 
du catalogue. 

#206C/# 2075 

Initialisation de l'adresse de trans¬ 
fert catalogue en RAM. 

#2076/#2082 

Lecture catalogue et transfert en 
RAM. 

#2083/# 208A 

Teste si le catalogue comporte 
plusieurs secteurs. 

#208B/#2093 

Initialisation pour lecture secteur 
suivant. 

#2094/#2096 

Retour à lecture secteur catalo¬ 
gue. 

# 2097/ # 20A1 

Ecriture d'une page de FF à la fin 
du catalogue. 

#20A2/#20A5 

Initialisation de l'adresse de lec¬ 
ture en RAM. 

#20AA/#20BC 
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: REM 
: REM 

Ü**•*■**■■**■*■*■#■■*■** ♦ 

* * 

30 

: REM 

* 

LCATDISK 

* 

40 

: REM 

* 

par 

* 

50 

: REM 

* 

André Guichardon 

* 


60 : REM * * 

70 : REM *********************** 

80 : REM 

90 :REM Ce programme sort sur écran ou sur écran 

100 : REM des programmes présents sur la disquette 

110 : REM début et de -fin de ces programmes en he:: 

120 ; REM Faire POKE «2120.«60 pour annuler la sor 

130 : FOR A=«2000 TO «2254:READ B:POKE A.BsNEXT 

140 : DATA «EA,«20,«CE,«CC.«20.«FO.«CB,«20 

150 : DATA «20,«21,«20.«90,«21,«A9,« 1,«8D 

160 : DAT A «7,«CO,«A9,«0,«8D,«8,«CO,«A9 

170 : DATA «14,«8D,«9,«CO,«A9.«1,«8D,«A 

180 : DATA «CO,#20,#4E,#C2,#A2,«0,«BD,#F8 

190 : DATA «FE,#9D,«0.«22,#E8.#E0,«8,«DO 

200 : DAT A #F5,#20,«22,«4,#A9,«11.«8D,«69 

210 : DATA #2,#A9,«0,«AO,«22,#20,#B0,«CC 

220 : DAT A #20,#20,#21,#20,«FO.«CB,#20,#2 

230 : DATA «CC,#20,#20,#21,#A9,#9,«AO,#22 

240 : DATA #20,#B0,«CC,#20,#20.#21,#20,«FO ► 


et imprimante le catalogue 
avec les adresses de 
adecimal 

tie sur l'imprimante 


Tests pour éliminer les fichiers 
DAT, ARY, SYS. 

#20BD/#20DE 

Lecture des n° piste et secteur du 
début de chaque programme 
avec tests pour détecter les pro¬ 
grammes supprimés et la fin du 
catalogue. 

# 20D2/ # 20DE 
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Lecture du titre et type de fichier. 
Remplissage du tampon d'affi¬ 
chage. 

#20DF/#20E3 

Lecture du nombre de secteurs. 

#20E4/#20F2 

Lecture du début du fichier. 
Transfert en RAM de l'adresse de 
début et la longueur du pro¬ 
gramme. 

#20F3/#20F5 
Sortie Overlay. 

#20F6/#20F8 

Appel du sous-programme de cal¬ 
cul adresse de fin et conversion 
Hexa — ASCII. 

# 20F9/# 20FB 

Appel du sous-programme de 
conversion hexa — décimal. 
#20FC/#210B 

Affichage du tampon - activation 
imprimante. Saut à la ligne. 
Entrée Overlay. 

#210C/# 2116 



250 .-DATA 
260 : DATA 
270 : DATA 
280 : DATA 
290 : DATA 
300 : DATA 
310 : DATA 
320 : DATA 
330 : DATA 
340 : DATA 
350 : DATA 
360 : DAT A 
370 : DATA 
380 : DAT A 
390 : DATA 
400 : DATA 
410 : DATA 
420 : DATA 
430 : DAT A 
440 : DATA 
450 : DATA 
460 : DAT A 
470 : DATA 
480 : DATA 
490 : DATA 


#CB,#20,#2,#CC,#20,#20,#21,#20 
#90,#21,#A9,#14,#8D,#9,#C0,#A9 
#2, #8D,#A,#C0,#A9,#0,#85,#70 
#A9,#22,#85,#71,#E6,#71,#20,#4E 
#C2,#A0,#0,#B9,#0,#FE,#91,#70 
#C8,#D0,#F8,#A0,#2,#B1,#70,#F0 
#E,#30,#C,#8D,#9,#C0,#CB,#B1 
#70,#8D,#A,#C0,#4C,#74,#20,#A0 
#0,#E6,#71,#A9,#FF,#91,#70,#C8 
#D0,#F9,#A9,#23,#85,#73,#A9,#4 
#85,#72,#A0,#C,#B1,#72,#C9,#41 
#F0,#5A,#C9,#44,#F0,#56,#C8,#B1 
#72,#C9,#59,#F0,#4F,#A0,#1,#B1 
#72,#8D,#A,#C0,#C9,#12.#B0,#55 
#88,#B1,#72,#8D,#9,#C0,#C9,#52 
#B0,#3A,#C8,#C8,#C8,#B1,#72,#99 
#2D,#22,#C8,#C0,#F,#D0,#F6,#C8 
#B1,#72,#85,#80,#20,#4E,#C2,#A2 
#0,#BD,#2,#FE,#95,#74,#E8.#E0 
#6,#D0,#F6,#20,#22,#4,#20,#33 
#21,#20,#9C,#21.#A9,#30,#A0,#22 
#20,#B0,#CC.#20.#20,#21,#20,#F0 
#CB,#20,#90,#21,#18,#A5,#72,#69 
#12, #85, # _7 2, #90, #5. #E6, #73, #4C 
#A6,#20,#4C,#AA,#20,#4C,#22,#4 


Sous-programme de calcul de 
l'adresse du titre suivant. 

#2117/#211F 

Sous-programme d'impression. 
Effectue la copie de la ligne en 
cours d'écriture. 

#2133/#218F 

Sous-programme réalisant l'in¬ 
version des octets bas et des 
octets hauts afin de les placer 
dans un ordre précis dans la pile. 
Calcul de l'adresse de fin de 
fichier et conversion en codes 
ASCII. 

#2190/# 219B 

Sous-programme d'entrée en 
Overlay. 

#219C/#21F6 

Sous-programme de conversion 
Hexa en ASCII décimal. 

#2200/#2255 
Tampons d'affichage. 




RIEURS 1 


3 i 
7 St-Cl 

^ sec; 

5 sec; 

* seo 
5 sec; 

9 sec7 \ 
n sec - ' 

« secT l 
. Used] 


500 : DAT A #EA,#A0,#2,#B1,#12,#20,#C1.#F5 
510 : DAT A #C8,#C0,#28, #D0,#F6,#A9,#A,#20 
520 : DATA #C1,#F5.#60,#A5,#74,#48.#A5,#75 
530 : DATA #35,#74,#68,#85,#75,#A5,#76,#48 
540 : DATA #A5,#77,#85,#76,#68,#85,#77.#18 
550 : DATA #A5,#75,#65,#77,#85,#77,#A5,#74 
560 : DATA #65,#76,#85,#76,#A2,#5,#CA,#F0 
570 : DATA #15,#B5,#73,#A8,#29,#F,#20.#86 
580 : DAT A #21,#48,#98,#4A,#4A,#4A,#4A,#20 
590 : DATA #86,#21,#48,#4C,#56,#21,#A2,#0 
600 : DATA #68,#9D,#3F,#22,#EB,#E0,#4,#D0 
610 : DATA #F7,#E8,#EB,#E8.#68,#9D,#3F,#22 
620 : DATA #E8,#E0,#B,#D0,#F7,#60,#18.#C9 
630 : DATA #A,#90,#2,#69,#6,#69.#30,#60 
640 : DATA #78,#A9,#7F,#8D,#E,#3,#A9,#1 
650 : DATA #8D,#FA,#3,#60,#A9,#30,#8D,#4C 
660 : DAT A #22,#8D,#4D,#22,#8D,#4E,#22,#A2 
670 : DAT A #0,#E4,#80,#F0,#31,#E8,#EE,#4E 
680 : DATA #22,#AD,#4E,#22,#C9,#3A,#D0.#F1 
690 : DAT A #A9,#30,#BD,#4E,#22,#EE.#4D,#22 
700 : DAT A #AD,#4D,#22,#C9,#3A,#D0,#E2,#A9 
710 : DATA #30,#8D,#4D,#22,#EE,#4C,#22,#AD 
720 : DATA #4C,#22,#C9,#3A,#D0,#D3,#A9,#30 
730 : DATA #8D,#4C,#22,#4C,#AE,#21,#AD,#4C 
740 : DATA #22,#C9,#30,#D0,#11.#A9,#20,#8D 
750 : DATA #4C,#22.#AD,#4D,#22,#C9,#30,#D0 
760 : DATA #5,#A9,#20,#8D,#4D.#22,#60,#EA 
770 : DATA #EA,#EA,#EA,#EA,#EA,#EA,#EA,#EA 
780 : DAT A #20,#20,#20,#20,#20,#20,#20,#20 
790 : DAT A #0,#20,#20,#20,#54,#49,#54,#52 
800 : DAT A #45,#53,#20,#20,#20,#20,#20,#44 
810 : DATA #45,#42,#55,#54,#20,#20,#20,#46 
820 : BATA #49,#4E,#20,#20,#20,#53,#45,#43 
830 : BATA #54,#4 5,#55,#52,#53,#0,#0,#0 
840 : DATA #20,#20,#20,#20,#20,#20,#20,#20 
850 : DATA #20,#20,#20,#20,#20,#20,#23,#20 
860 : DAT A #20,#20,#20,#20,#20,#23,#20,#20 
870 : DATA #20,#20,#20,#20,#20,#20,#20,#20 
880 : DATA #53,#45,#43,#54,#0 
890 : END H 
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12000 

-21Fo 





2000 : 

EA 



NOP 


2001 : 

20 

CE 

CC 

J SR 

*CCCE 

2004: 

20 * 

FO 

CB 

JSR 

*CBFO 

2007 : 

20 

20 * 

21 

JSR 

*2120 

200 A: 

20 * 

90* 

21 

JSR 

*2190 

200 D: 

A9 

01 


LDA 

#*01 

200F : 

SD 

07 

CO 

STA 

*COO»7 

2012 : 

A9 

* 1 * 0 * 


LDA 

#*00 

201 4: 

8 D 

08 

CO* 

STA 

*COO >8 

2017: 

A9 

14 


LDA 

#*14 

2019: 

8 D 

09 

CO* 

STA 

*C009 

201 C: 

A9 

01 


LDA 

#*01 

301E: 

SD 

OA 

CO * 

STA 

*COOA 

2021 : 

20 » 

4E 

C2 

JSR 

*C24E 

2024: 

A2 

0 * 0 » 


LDX 

#* oo * 

202 o: 

BD 

F 8 

FE 

LDA 

*FEFB,X 

2029: 

9D 

0*0 

22 

STA 

* 2200 .X 

202 C : 

E 8 



1 NX 


202 D: 

E0> 

08 


CPX 

#*08 

202F: 

DO 

F5 


BNE 

*20*26 

2031 : 

20 * 

33 

0*4 

JSR 

*0-422 

2034 : 

A9 

11 


LDA 

#*11 

2036: 

8 D 

69 

0*2 

STA 

*0269 

2039 : 

A9 

00 


LDA 

#* O0 

303B: 

AO 

22 


LDV 

#*22 

203D : 

20 

BO 

CC 

JSR 

*CCBO 

2040: 

20 * 

20 * 

21 

JSR 

*2120 

2043: 

20 * 

FO 

CB 

JSR 

*CBFO 

2046: 

20 * 

02 

CC 

JSR 

*CC02 

2049: 

20 * 

20 » 

21 

JSR 

*2120 

204C : 

A9 

09 


LDA 

#*0*9 

204E: 

a*:* 

22 


LDY 

#*22 

2050: 

20 * 

BO* 

CC 

JSR 

*CCBO 

2053 : 

20 * 

20 

21 

JSR 

*2120 

205a: 

20 » 

FO 

CB 

JSR 

*CBFO> 

20159: 

20 * 

0*2 

CC 

JSR 

*CC02 

205C: 

20 * 

20 * 

21 

JSR 

*2120 

20»5F : 

20 

90 

21 

JSR 

*2190 

2062: 

A9 

14 


LDA 

#*14 

2064: 

8 D 

0>9 

CO 

STA 

*C0>0>9 

20*67 : 

A9 

02 


LDA 

#*02 

20*69 : 

8 D 

OA 

CO 

STA 

SCOOA 

2C*6C: 

A9 

00 


LDA 

#soo 

206E: 

85 

70 


STA 

*70 

20*70*: 

A9 

22 


LDA 

#*22 

2072: 

85 

71 


STA 

*71 

2074: 

E 6 

71 


INC 

*71 

2076: 

20 

4E 

C2 

JSR 

SC24E 

2079: 

AO 

00 


LDY 

#*00 

207B: 

B9 

00 

FE 

LDA 

*FE 00 .Y 

207E: 

91 

70 


STA 

( * 70* ) . Y 

2080* : 

CB 



INY 


2081 : 

DO 

F 8 


BNE 

*207B 

20*63 : 

AO * 

0*2 


LDY 

#*02 

2035: 

B 1 

70 


LDA 

<*70J.Y 

20*87 : 

FO* 

•:>e 


BEQ 

*2097 

20*89: 

30* 

OC 


BMI 

*2097 

208B: 

8 D 

0*9 

C0> 

STA 

*C009 

20BE: 

CS 



INY 


20SF : 

B1 

70* 


LDA 

< *70*/ , Y 

20*o 1 : 

8 D 

0 *H 

CO 

STA 

*COOA 


2094: 

4C 

74 20 

JMP 

*2074 

20*97: 

AO 

OO* 

LDY 

#*00 

2099: 

E 6 

71 

INC 

*71 

209B: 

A9 

FF 

LDA 

#$FF 

20*9 D: 

91 

70 

STA 

(*70),V 

20*9F : 

C 8 


INY 


20»A0* : 

DO 

F9 

BNE 

$209& 

20A2: 

A9 

23 

LDA 

#$23 

20A4: 

85 

/ _• 

STA 

*73 

2*:*A6: 

A9 


LDf-. 

#*04 

20 A 8 : 

85 

7-J 

STA 

*72 

2 *:*AA: 

AO* 

OC 

Lût 

#*0C 

20*AC : 

B 1 


LDA 

*72) . Y 

20»AE: 

C9 

a 

CNF 

#*41 

20B0: 

FO 

*5*-* 

BEO 

*210C 

20B2: 

C9 

4 4 

CMP 

#*44 

20B4: 

FO 

5*. 

BEQ 

*21 OC 

20 *& 6 : 

CS 


INY 



20B7 

: B1 

72 


LDA 

< *72* , Y 

20*B9 

C9 

59 


CMP 

#*59 

20 B B 

: FO 

4F 


BEQ 

* 210<C 

20BD 

: AO* 

01 


LDY 

#*01 

20BF 

: B1 

72 


LDA 

<*72* . i 

20*C 1 

: 8 D 

OA 

CO 

STA 

«COO'A 

20C4 

: C9 

12 


CMP 

#*12 

20*C6 

: BO 

55 


BCS 

*211D 

20*C8 

: B 8 



DEY 


2 OC 9 

: B 1 

72 


LDA 

<*72 > . Y 

20 CB 

: 8 D 

09 

CO* 

STA 

*C0'0'9 

20-CE 

: C9 



CMP 

#*52 

20*D0> 

: BO 

3A 


BCS 

*210C 

20D2 

: ce 



INY 


20'D3 

: ce 



INY 


20D4 

: C 8 



INY 


2005 

: B 1 

72 


LDA 

<*72).Y 

20D7 

: 99 

2D 

a'-’ 

STA 

* 222 D,Y 

20DA: C 8 



INY 


20DB 

CO 

OF 


CF Y 

#*0F 

20 DD 

DO» 

F 6 


BNE 

*20D5 

20DF 

CS 



INY 


20EO* 

B 1 

72 


LDA 

<*72).Y 

20 *E 2 

85 

eo 


STA 

*80 

2C*E4 

20 

4E 

a-* 

JSR 

*C24E 

20*E7 

A2 

00 


LDX 

#*00 

20*E° 

BD 

02 

FE 

LDA 

*FE0'2. X 

20EC 

95 

74 


STA 

*74. X 

20EE 

ES 



INX 


20>EF 

EC> 

06 


CFX 

#*06 

20F 1 

DO* 

F 6 


BNE 

*20E° 

20F 3 

20 * 

22 

04 

JSR 

*0*422 

20F 6 

20 * 


3* 

JSR 

*2133 

20F « 

20 * 

9C 

21 

JSR 

*2 I9C 

20F C 

A9 

3<* 


LDA 

#*30 

20’FE 

A*'* 

22 


LDY 

#*22 

21 OO* 

20 * 

B" 

CC 

JSR 

*CCBO 

210*3 

2 * 1 * 

2 *;* 

21 

JSR 

*2120 

21 *:»6 

20 * 

FO 

CB 

JSR 

*CBF*.t 

2109 

3*.* 

9*:* 

21 

JSR 

* 21=0 

210’C 

15 



CLC 


21OD 

A5 

72 


LDA 

*72 

210*F 

6 => 

12 


ADC 

#*12 

211 1 

35 

72 


STA 

*72 

2113 

90 

05 


BCC 

*21 IA 

2115 

E 6 

73 


INC 

*73 

2117 

4C 

A 6 

20 

JMP 

S20A6 

21 IA 

4C 

AA 

20 

JMP 

*20AA 

211D 

4C 

33 

04 

J MR 

*0422 

2120 

EA 



NOP 


2121 

AO 

02 


LDY 

#*02 

2123 

B 1 

12 


LDA 

< * 12 ) < Y 

2125 

20 

Cl 

F5 

JSR 

SF5C1 

2128 

C 8 



INY 


2129 

CO 

28 


CPY 

#*28 

212B 

DO 

Fo 


BNE 

*2123 

212D 

A9 

OA 


LDA 

#*0*A 

212F 

20 

Cl 

F5 

JSR 

*F5C1 

2132 

60 



RTS 


2133 

A5 

74 


LDA 

*74 

2135 

48 



PHA 


2136 

A5 

75 


LDA 

*75 

2138 

85 

74 


STA 

*74 

213A 

68 



PLA 


213B 

85 

75 


STA 

*75 

213D 

A5 

76 


LDA 

*76 

213F 

48 



PHA 


2140 

A5 

77 


LDA 

*77 

2142 

85 

76 


STA 

*76 

2144 

68 



PLA 


2145 

85 

77 


STA 

*77 

2147 

18 



CLC 


2148 

AS 

75 


LDA 

*75 

214A 

65 

77 


ADC 

*77 

214C 

85 

77 


STA 

*77 

214E 

A5 

74 


LDA 

*74 

2150 

65 

76 


ADC 

*76 

2152 

85 

76 


STA 

*76 

2154 

A2 

05 


LDX 

#*05 


2156 

CA 



DEX 


2157 

FO 

15 


BEQ 

*216E 

2159 

B5 

73 


LDA 

*73. X 

215B 

AS 



TAY 


215C 

39 

OF 


AND 

#*0F 

215E 

20 * 

86 

21 

JSR 

*2186 

2161 

48 



PHA 


2162 

'98 



TVA 


2163 

4A 



LSF 


2164 

4A 



LSR 


2165 

4A 



LSR 


2166 

4A 



LSR 


2167 

20 

86 

21 

JSR 

*2186 

216A 

48 



PHA 


216& 

4C 

5e 

21 

JMP 

*2156 

21cE 

A2 

00 


LDX 

#*00 

2170 

68 



F LA 


2171 

9D 

3F 

-*—* 

3 T m 

*223F 

2174 

ES 



INX 


2173 

EO 

04 


CFX 

#*04 

2177 

DO* 

F7 


BNE 

*2170» 

2179 

ES 



INX 


217A 

ES 



INX 


217B 

ES 



INX 


217C 

63 



PLA 


217D 

9D 

3F 


STA 

î 223F 

2180 

ES 



IN> 



2181 : 

EO 

0>B 


CPX 

#$ 0 & 

2183: 

DO 

F7 


BNE 

$217C 

2135: 

6 *:* 



RTS 


218e: 

18 



CLC 


2167: 

C9 

■DA 


CMP 

#$0A 

2189: 

9*.* 

02 


BCC 

$218D 

2 IBB: 

69 

0*6 


ADC 

#$0 o 

2 1SD: 

69 

30* 


ADC 

#$30 

218F: 

a 1 .* 



RTS 


2190i: 

78 



SE 1 


2191 : 

A9 

7F 


LDA 

#$7F 

2193: 

8 D 

*:»e 

03 

STA 

$030E 

2196: 

A9 

01 


LDA 

#$01 

2198: 

8 D 

FA 

03 

STA 

$03FA 

219B: 

60 



RTS 


219C: 

A9 

30* 


LDA 

#$30 

219E: 

6 D 

4C 


STA 

$224C 

21A1 : 

SD 

4D 

ZZ 

STA 

$22 4 D 

21 A4: 

8 D 

4E 

22 

STA 

$224E 

21A7’: 

A2 

00 


LDX 

#$00 

21A9: 

E4 

80 


CPX 

$80 

2 1 AB: 

FO* 

31 


BEQ 

$21 DE 

21 AD: 

ES 



INX 


21AE: 

EE 

4E 

22 

INC 

$224E 

21B1 : 

AD 

4E 

22 

LDA 

$224E 

21B4: 

C9 

3A 


CMP 

#$3A 

21B6: 

DO 

Fl 


BNE 

$21A9 

21B8: 

A9 

30 


LDA 

#$30 

21BA: 

8 D 

4E 

22 

STA 

$224E 

21BD: 

EE 

4D 

22 

INC 

$224D 

21C0: 

AD 

4D 


LDA 

$2240 

21C3: 

C9 

3A 


CMP 

#$3A 

21C5: 

DO 

E2 


BNE 

$21A9 

21C7: 

A9 

30» 


LDA 

#$30 

21C9: 

8 D 

4D 

22 

3 T’A 

$224 D 

21CC: 

EE 

4C 

22 

INC 

$224C 

21 CF : 

AD 

4C 

22 

LDA 

$224C 

21D2: 

C9 

-•A 


CMP 

#$3m 

21D4: 

d*:> 

D3 


BNE 

$2 1 A9 

21D6: 

A9 

J *. 1 


LDA 

#$30 

21 08: 

8 D 

4C 

22 

STA 

$224C 

21DB: 

4C 

AE 

21 

JMF 

$21 AE 

2 IDE: 

AD 

4C 

22 

LDA 

$224C 

2 1 E 1 : 

C9 

30* 


CMP 

#$30 

21E3: 

DO* 

1 1 


BNE 

$21F6 

21E5: 

A9 

2 l|l 


LDA 

#$20 

21E7 : 

8 D 

4C 

22 

STA 

$224C 

21 EA: 

AD 

4D 

22 

LDA 

$ 22 4 D 

21ED: 

C9 

30» 


CMR 

#$30 

21 EF: 

d*:* 

*:>s 


BNE 

$ 21 Fo 

21 F 1 : 

A9 

3*1* 


LDA 

#$20 

21F3: 

eD 

4D 

22 

STA 

$224D 

21F6: 

6 * 1 » 



RTS 
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SUR VOTRE DOS 


LE CONTROLEUR 

Pierre Chicourrat 

L a série que nous débutons aujourd'hui s'adresse à tous 
les lecteurs possédant une unité de disquette, c'est-à- 
dire aussi bien à ceux qui désirent aller plus loin dans la 
connaissance du système JASMIN et de son D.O.S, qu'à ceux 
qui veulent tout simplement apprendre à le connaître. Aussi, 
il ne sera exigé aucune connaissance particulière, si ce ne 
sont quelques bases de programmation en langage machine 
(nécessaires pour comprendre les programmes qui pourront 
être proposés, mais inutiles pour les utiliser). 


Nous verrons tout d'abord quel¬ 
ques points théoriques sur l'organi¬ 
sation du système JASMIN (élé¬ 
ments qui sont d'ailleurs communs 
à la plupart des systèmes de lec¬ 
teurs de disques existant sur ORIC) 
pour arriver, petit-à-petit, à une étu¬ 
de complète du D.O.S, afin de four¬ 
nir la carte de ses principales rou¬ 
tines ainsi que leur mode d'emploi. 
Afin d'illustrer le tout, nous vous 
proposerons au fur et à mesure de 
notre progression, quelques exem¬ 
ples d'applications des points déjà 
vus sous la forme de petits pro¬ 
grammes utilitaires... 

Avant de commencer à parler du 
D.O.S, il est bon de savoir exacte¬ 
ment ce que recouvre cette abré¬ 
viation. Le terme "D.O.S" est la 
contraction des mots anglais "Disk 
Operating System" (Système de 
manipulation de disques). Plus pré¬ 
cisément, le D.O.S est véritable¬ 
ment, pour votre ORIC, le mode 
d'emploi du lecteur de disquettes, 
l'interface logicielle entre les deux 
parties matérielles que sont l'unité 
centrale (C.P.U : Central Proces¬ 
sing Unit) et l'unité de disque. Pour 


mieux comprendre, regardons de 
plus près le lecteur de disquettes. 
Nous y trouvons des parties pure¬ 
ment mécaniques qui serviront à 
manipuler le disque (moteur de 
lecteur), ou à inscrire des informa¬ 
tions (tête d'écriture et de lecture : 
une ou deux, si vous avez un lec¬ 
teur double tête, une est installée 
sur le dessus et l'autre sur le des¬ 
sous, chacune pouvant être com¬ 
mandée séparément). Enfin, le 
"contrôleur de disquettes" (qui 
n'est en fait qu'une "Puce" de plus) 
asservit ces éléments. C'est là, véri¬ 
tablement le cerveau du lecteur qui 
commande aux parties matérielles 
ce qu'elles doivent faire (le contrô¬ 
leur est en fait l'analogue de ce 
qu'est le microprocesseur pour 
l'ORIC). Le contrôleur peut faire 
des choses relativement élaborées 
(lire et écrire des informations par 
exemple) mais aussi vérifier l'état de 
protection de la disquette (est-elle 
protégée en écriture ou non, 
etc ?). C'est directement à lui que 
l'ORIC envoie ses ordres par l'inter¬ 
médiaire des "registres de con¬ 
trôle”. Les registres de contrôle 
sont des registres d'entrée sortie, 


véritables points de communication 
entre le microprocesseur et le 
contrôleur. Chaque ordre que l'on 
veut transmettre au contrôleur a un 
code (nombre compris entre 0 et 
255, donc code sur un octet). Pour 
donner une instruction au contrô¬ 
leur, il suffit d'envoyer ce code 
dans le registre de commande (et 
d'envoyer également, si néces¬ 
saire, un paramètre dans le regis¬ 
tre de donnée). Ces registres de 
contrôle sont en page 3, à partir de 
#3F4. Voici l'adresse exacte des 
principales, leur rôle ainsi que quel¬ 
ques procédures de commande : 

#3F4 : 

Registre de commande (écriture et 
lecture). Le dernier bit donne l’état 
du contrôleur (s'il est a 0, le contrô¬ 
leur est prêt a recevoir un nouvel 
ordre). C'est le registre par lequel 
transitent tous les ordres. 

#3F7 : 

Registre de données (lecture et 
écriture). C'est le registre qui sert a 
envoyer des paramètres après une 
instruction ou à recevoir des don¬ 
nées depuis le lecteur (par exem¬ 
ple lors de la lecture, le contrôleur 
renvoie les données lues dans ce 
registre). Pour envoyer un para¬ 
mètre au contrôleur après une ins¬ 
truction, il est nécessaire de la met¬ 
tre dans ce registre avant d'envoyer 
l'instruction dans le registre de 
commande car dès que l’instruction 
est envoyée, le contrôleur l'exé- 
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cute, il faut donc qu’il trouve les pa¬ 
ramètres nécessaires. 

#3F6 : 

Numéro de secteur (sector regis- 
ter). Contient le numéro du secteur 
qui sera traité. 

#3F5 : 

Numéro de piste (track register). 
Contient le numéro de la piste qui a 
été lue. Ce registre ne sert qu'en 
lecture. 

#3F8 : 

Numéro de la face traitée (sur un 
lecteur double tête). 0 pour la pre¬ 
mière face et 1 pour la seconde. 

#3FC : 

Etat d'activation du lecteur numéro 
1 (si égal à 1 : le lecteur est activé, à 
0 sinon). 

#3FD : 

Même chose mais pour le second 
lecteur. 


#3FE : 

Idem pour le troisième lecteur. 

#3FF : 

Idem pour le quatrième lecteur. Ces 
quatre derniers registres sont bien 
sûr prévus pour permettre l'utili¬ 
sation de plusieurs lecteurs (un 
maître et 3 esclaves au maximum). 

Voilà pour les adresses. Voyons 
maintenant quelques exemples de 
commmandes du contrôleur. Sup¬ 
posons que vous vouliez position¬ 
ner la tête de lecture sur une piste 
donnée. Il vous suffira tout d'abord 
de sélectionner la face de la dis¬ 
quette sur laquelle se trouve cette 
piste. Pour cela, on met tout simple¬ 
ment le numéro de la face dans le 
registre de face en #3F8, on sé¬ 
lectionne ensuite le numéro du 
lecteur (par les registres #3FC et 
suivants) et on met à zéro le re¬ 
gistre de commande. Puis on met 
dans #3F7 (data register) le numéro 
de la piste et on met dans le re¬ 
gistre de commande la valeur #14 
(commandant au contrôleur le posi¬ 
tionnement de la tête. On attend 
que le contrôleur soit à nouveau 
libre (bit 0 de #3F4 à 0) et on lit la 
valeur contenue dans le registre de 


commande (#3F4), si les bits 3 et 4 
de cette valeur sont à zéro : le posi¬ 
tionnement a réussi (ceci se véri¬ 
fiant aisément en faisant un "et" 
logique avec la valeur #18, le résul¬ 
tat de ce "et" devant être 0) ; sinon, 
le positionnement a échoué. On re¬ 
tente alors un positionnement (par 
la même procédure). Si au bout de 
5 tentatives, la tête n'a pu se mettre 
à la bonne place, on considère qu'il 
y a un problème de communication 
et on arrête tout. 


Figure 2 : 

Commandes du contrôleur : 

- Lecture d'un secteur : 

La tête de lecture étant position¬ 
née sur la bonne piste de la bonne 
face (Cf texte), on met dans #3F6 
le numéro du secteur à lire, on 
interdit alors les interruptions du mi¬ 
croprocesseur (SEI) et celles dues 
au VIA (par la séquence : LDA 
#$7F / STA $030E). Puis on met la 
valeur #88 dans le registre de 
commande (#3F4) commandant au 
contrôleur de se mettre en mode 
lecture. A partir de ce moment là, 
dès que l’on autorisera à nouveau 
les interruptions (CLI), à chaque in¬ 
terruption, le contrôleur enverra, 
les uns après les autres, les octets 
du secteur dans le registre de don¬ 
nées (donc 256 octets). Pour les ré¬ 
cupérer, il suffit donc de modifier la 
routine de gestion des IRQ (Cf lis¬ 
ting assembleur illustrant parfaite¬ 
ment cette manipulation : routine 
'RS'). La lecture est terminée 
quand le contrôleur se déclare 
libre. 

- Ecriture d'un secteur : 

Méthode analogue à la lecture : 

La tête de lecture étant position¬ 
née sur la bonne piste de la bonne 
face (Cf texte), on met dans #3F6 
le numéro du secteur à écrire, on 
interdit alors les interruptions du mi¬ 
croprocesseur (SEI) et celles dues 
au VIA (par la séquence : LDA 
#$7F / STA $030E). Puis, on met la 
valeur #AA dans le registre de com¬ 
mande (#3F4) commandant au 
contrôleur de se mettre en mode 
écriture. A partir de ce moment là, 


Vous trouverez figure 1, un petit 
programme en BASIC illustrant ces 
manipulations. Cette opération de 
positionnement de la tête est à peu 
près la seule qui puisse être réa¬ 
lisée par un programme en BASIC. 

En effet, les opérations de lecture 
et écriture doivent être impérative¬ 
ment réalisées en langage machi¬ 
ne. Vous trouverez les commandes 
à envoyer au contrôleur pour réali¬ 
ser ces opérations sur la figure 2. 
Enfin, figure 3, vous trouverez le ► 


dès que l'on autorisera à nouveau 
les interruptions (CLI), à chaque 
interruption, le contrôleur écrira 
l'octet contenu dans le registre de 
données #3F7. Pour enregistrer 
des données, il suffit donc de 
modifier la routine de gestion des 
IRQ pour la remplacer par une sé¬ 
quence du type : 

LDX TAMPON,Y’ met dans X la 
donnée à écrire 

STX #03F7' écriture de la donnée 
NY' incrémente le pointeur de la 
donnée envoyée 
RTI'finde la routine, 
où TAMPON désigne l'adresse de 
la page mémoire à envoyer. Il faudra 
bien sûr, en début d'écriture, met¬ 
tre le registre Y à zéro (pour envoy¬ 
er la première donnée). La métho¬ 
de de remplacement est similaire à 
celle employée dans le listing as¬ 
sembleur de lecture d'un secteur 
(lignes 65 à 68 et restaurée par les 
lignes 73 à 76). L'écriture est ter¬ 
minée quand le contrôleur se dé¬ 
clare à nouveau libre (bit 0 de #3F4 
àO). 

Enfin, donnons une séquence qui 
revient fréquemment et qui peut 
aussi être utilisée utilement dans 
vos programmes pour voir si, à priori 
le lecteur de disque est branché 
(cette séquence regarde si le con¬ 
trôleur est prêt à accepter une 
commande) : 

En BASIC : 

REPEAT:UNTIL (PEEK(#3F4) AND 
# 01)-0 

En langage machine : 

WAIT LDA #$01 

AND$03F4 

BNEWAIT 

RTS (rend la main si libre) 
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listing assembleur d’une routine 
permettant de lire un secteur 
quelconque, et figure 4, le program¬ 
me BASIC se chargeant d’implanter 
et de reloger cette routine là où 
vous le voulez. 

Le contrôleur peut donc faire faire 
au lecteur bien des choses mais ce 
ne sont en fait que des actes élé¬ 
mentaires par rapport à ce que veut 
réaliser l'utilisateur (par exemple le 
contrôleur est totalement incapable 
de sauver un programme BASIC !). 
Il faut donc combiner ces actes 
simples pour en réaliser de plus 
élaborés, et c'est là le rôle du DOS, 
contenant des routines qui se 
chargent d’assurer le lien entre 
l'utilisateur et le contrôleur (exacte¬ 
ment comme les programmes de la 
ROM assurent le lien entre l'utili¬ 


sateur et l'ORIC) et de gérer le 
disque (catalogue, etc.). 

Puisque le DOS n'est qu'un super 
programme en langage machine, il 
faut le stocker quelque-part: c'est 
là qu'intervient la RAM overlay. Mais 
cela nous le verrons dans le pro¬ 
chain numéro. Vous y trouverez 
également une utilisation très par¬ 
ticulière de cette RAM (mémoire 
vive) très spéciale. En effet, il vous 
sera désormais possible de transfé¬ 
rer sans peine les programmes du 
commerce sur votre lecteur (et cela 
même pour les programmes les 
plus protégés). Alors au prochain 
numéro ! 

- Pour aller plus loin : 

Vous trouverez ainsi, régulière¬ 
ment une petite rubrique où l’on 


posera quelques exercices d'appli¬ 
cation des points vus plus haut. La 
solution vous sera donnée dans le 
numéro suivant, le problème d'au¬ 
jourd'hui est simple (comme c'est le 
premier) : 

Vous avez trouvé figure 3 et 4 un 
programme de lecture d'un secteur 
(assembleur et programme d'implan¬ 
tation). Il vous suffit de modifier le 
listing assembleur et le programme 
d'implantation pour que la routine 
assure non plus la lecture mais 
l'ECRITURE d’un secteur (pour 
ceux qui connaîtraient déjà le 
BITMAP, il n'est pas demandé ici de 
la gérer). Tous les renseignements 
nécessaires sont donnés dans le 
texte et les modifications à appor¬ 
ter sont mineures. 

Solution le mois prochain... 
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10 REM= EXEMPLE DE COMMANDE 

20 REM* DU CONTROLEUR = 

30 REM 

40 REU= POSITIONNEMENT DE Lfl TETE SUR UNE BONNE PISTE 
50 REM 
60 REM 

70 POKE#3F8,0'SELECTION DE Lfi FfiCE <=1 SI FACE 2) 

80 INPUT"PISTE SUR LAQUELLE ON SE POSITIONNE ";P 
90 ES=0'COMPTEUR DU NOMBRE D'ESSAI 
100 POKE#3F4,0'RESET DU CONTROLEUR 

110 P0KE#3F?,P * REM SELECTIONNE LE NUMERO DE LA PISTE 

111 GOTO160 

120 R0KE#3FC»1'ALLUME LE LECTEUR N0 1 
130 POKE#3FD,0 ' ET ETEIND LES AUTRES 
140 P0KE#3FE> 0 
150 POKE#3FF,0 

160 F0KE#3F4,2Q' #14=20 ■ COMMANDE LE POSITIONNEMENT 

170 REPEAT:Q=PEEK<#3F4> AND 1 : IJNTILQ=0' ATTEND QUE LE CONTROLEUR AIT FINI 
180 Q=PEEK<#3F4) AND #13 : IFQ=0THEN ZAP ! PRINT"POSITIONNEMENT REUSSI">GOTO70 
190 ES=ES+1 ! IFES=5THENPRINT"POSITIONNEMENT IMPOSSIBLE =ERREUR">PING>GOTO70 
200 GOTO100'ON RETENTE DE POSITIONNER SI CA NA PAS MARCHE 
210 REM 
220 REM 

230 REM ON PEUT AUSSI REMPLACER LA LIGNE 80 PAR CELLE-CI < 

240 REM 

250 REM 30 P=INT<RND<1>*41) 

260 REM 

270 REM ON A AINSI UNE SUCCESSION DE POSITIONNEMENT AVEC UN BRUIT 
283 REM TRES CARACTERISTIQUE DE LA TETE DE LECTURE 
290 REM 
300 REM# 


N ouveau 1 

Abonnement 
disquettes JASMIN 

Les disquettes de THEORIC ont du 
succès. En conséquence, leur prix 


baisse et passe à 116 F pour les 
abonnés à la revue et 146 F pour 
les non-abonnés. 

Pour vous faire économiser davan¬ 
tage, nous proposons l’abonne¬ 
ment aux disquettes. Pour 6 
disquettes, vous ne payerez que 
606 F. Cet abonnement est totale¬ 


ment indépendant de l'abonne¬ 
ment à la revue. L'économie réa¬ 
lisée est loin d'être négligeable ! 
N'oubliez pas, ces disquettes peu¬ 
vent être transférées sous SEDO- 
RIC par l'utilitaire CONVERT... pour 
peu que votre SEDORIC soit à 
jour ! 
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Figure 3 : 

Routine de lecture d'un secteur sut 
le disque (listing assembleur) 
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D’INTERRUPTION# ELLE NE SE 

135 

80E7 

20D9CF 


JSR VIRG 







TERMINE PRS P8R RTS 1181S P8R 

136 

80E8 

200DD8 


JSR NOMBRE 







RTI 

137 80ED 

8E4688 


STX 8TRMR0N+2. 


55 8048 



i 


138 

80F0 

897F 


LD8 «*7F 

. INTERDIT LES INTERRUPTIONS 

56 

8048 



i *f 







OU VIR 

57 

8048 


REriJPB 

EOL RECUP 


139 

R0F2 

8D0E03 


STR *030E. 


58 

8048 


RECUPH 

EOH RECUP 


140 

R0F5 

78 


SEI 

/ INTERDIT LES INTERRUPTIONS 

59 

8048 










IRQ DU MICROPROCESSEUR 

60 

8048 


RIROB 

EOL RIRO 

i INI TIRL I SE QUELQUES 

141 

R0F6 



* C8LCULE TOUT D'RBORD LE NUMERO EX8CT DE F8CE ET 






V8PI8BLES POUR L'RSSEM8LEUR 





DE PISTE CORRESPONDRA 8 LR PISTE DEM8NDEE 

61 

8048 


RIROH 

EOH RIRO 


142 

80F6 



i 


62 

8048 



t 


143 

80F6 



. DRNS X NUMERO DE F8CE 

63 

8048 





144 

80F6 



< DANS 'PISTE' 

NUMERO DE PISTE 

64 

8048 





145 

RÔF6 



; 


65 

8048 

8988 

RS 

LD8 11*83 

;ROUTINE DE LECTURE D'UN 

146 

80F6 

8200 


LDX «*00 







SECTEUR 

147 

80F8 

8D018O 


LD8 PISTE. 


66 

804D 

80F403 


ST8 *03F4. 

. C0MM8NDE 8U CONTROLEUR DE SE 

148 

80F B 

8C-0580 


STR SPISTE. 







METTRE EN MODE LECTURE 

149 

80FE 

C929 


CMP «*29 


67 

8050 

8000 


I.DY «*00 

j INITIALISE L'RDRESSE DE 

150 

8100 

9006 


BCC RE8D1 

. C'EST UNE PISTE DE LA 


• •• 


20 




PREMIERE F mCE 


151 A102 E92? 

152 Fi 104 8D01 AO 

153 1=11 ES 

154 A108 8EO0AO 

155 Al08 

IV» A108 AOOO 

157 A1 Ot> 8CFC03 

158 Al 10 SCF 003 
158 AUC-c 8CFE03 

180 Al 18 8CFF03 

181 Ail? A?0I 

182 Al 18 81‘FC03 

183 ANE AEOOAO 

184 A121 SEF803 

185 A124 2007AO 


SBC «*29 
STA PISTE. 
DIX 

STX FACE. 

l.DV B*00 

•TV *03FC. 
STV *03FD. 
ST Y *03FE. 
ST Y S03FF. 
Lf'A B*01 
STA *03FC. 
LDX FACE. 
STX *03F8. 
JSR NAIT 


SELECTIONNE LE LECTEUF 
UTILI 8 E 

ETEIMC* TOUS LES LECTEURS 


SAUF LE PREMIER 


i 88 

AI27 

A900 


LOA 

BSO0 


100 

167 

A 12 ? 

8OF403 


STA 

S03F4. 


110 


AI2C 

20 MAO 


JSR 

POSITIONNE 

. PUIS MET EN PLACE LA TETE DE 

120 







LECTURE SUR LA BONNE PISTE 

130 

189 

A12F 

ADO380 


LOA 

ERREUR. 


140 

1 70 

A132 

4M 


I.SP 

A 


150 

171 

Al 33 

*00 < 


BCC 

PE A 02 


160 

172 

Al 35 

4C84A0 

PE Ml- 

•IIP 

1OEPP 

. ERREUR DE TRANSMISSION OH 

170 







APRETE TOUT 

180 

173 

Al 3€ 

A? 10 

PF. AD? 

i r-A 

B* 10 

•LE POSITIONNEMENT A BIEN EU 

190 







LIEU 

20 O 

174 

A13F 

8C-04 AO 


STA 

COMPTEUP. 

.INTIALISE LE COMPTUR OES 

210 







TENTATIVES DE LECTURE OU 

2 20 







SECTEUR 

230 








240 

175 

A13D 

AD02A0 


LOA 

SECTEUR. 


250 

1/6 

A140 

8DF603 


STA 

*03F8. 

INITIALISE LE REGISTRE DE 

260 







SECTEUR DU CONTROLEUR 

270 

177 

A143 

AD05A0 


LOA 

SPISTE. 

RESTAURE LE NUMERO DE PISTE 

280 

1/8 

A148 

8001AO 


STA 

PISTE. 


290 

179 

A149 

CE04A0 

PEAt-5 

i-f>: 

COMPTEUP. 

•BOUCLE DE LECTURE OU SECTEUR 

300 

180 

A14C 

F0E7 


BE»*' 

RE AU 3 

. 81 IA VARIABLE COMPTEUR EST 

310 







ARRIVEE A ZEPA LF SECTEUR 

320 







NA PU ETRE LU 

330 

181 

A14E 

204BA0 


•SP 

RS 

■ TENTE DE LIRE l.E SECTEUR 

340 

182 

A151 

A940 


LOA 

B*40 


350 

18J 

A153 

2C-F403 


AND 

*03F4. 


360 

184 

H156 

F 00 3 


BEA 

RE Al *4 

.REGARDE SI LE DI30UE ETAIT 

370 







PROTEGE. SI CE N'EST PAS LE 

380 







CAS CONTINUE LE TRAITEMENT 

390 

185 

Al 58 

4CCCA0 


.•MP 

MRPROTECT 

.SINON AFFICHE UNE ERREUR 

4Û0 

188 

A15B 

A? IC 

PE Al-4 

LOA 

B* IC 

.REGARDE S’IL V A EU UNE 

410 







ERREUR DE LECTURE LORS DE LA 

420 







TRANSMISSION DES DONNEES Kl 

430 







SEC TEUR 

440 

187 

A15D 

2DF403 


AND 

*03F4. 


450 

188 

A180 

00E 7 


BUE 

REA05 

• IL Y A EU UNE ERREUR DE 

460 







TRANSMISSION FAIT UN NOUVEL 

470 







ESSAI DE LECTURE 

480 

189 

A182 

A900 


LDA 

B *00 

•PAS D'ERREUR: MET DONC A ZERO 

490 







LE DRAPEAU DES ERREURS 

500 

190 

A164 

8003AO 


STA 

ERREUR. 


510 

191 

A167 

A?c o 


LOA 

H*C0 

•REAUTORISE LES INTERRUPTIONS 

520 







DU VIA 

530 

192 

Al 69 

800E03 


STA 

*O30E. 


540 

193 

A16C 

58 


CLI 


. AUTORISE A NOUVEAU LES 

550 







INTERRUPTIONS 

560 

194 

A160 

60 


PTS 


. LE SECTEUR A ETE BIEN 

570 







TRANSMIS ON ARRETE TOUT 

580 


Figure 4 : 

Implantation de la routine de Içcture 


10 REM====»==a==o = = = = = ==a==== = a==ïs==a3 

20 REM= LECTURE DUN SECTEUR = 

30 REM= 

40 REM= PROGRAMME 0* IMPLANTATIOM = 

50 REM* 

60 REHs====8=BSsa=ss==s=5a=Bna==E=is=3 

70 REM 

80 TEXT«CLS■PAPER0« INK2 

?0 PRIMT PRJMT PRIMT INPUT"ADRESSE D'IMPLANTATION -NORMALE BAOOOr-AD 


“«"♦B* > C=VAL< ••«"♦C* * 


A=B93 - I=BCD G0SiJB320 


"L'ADPESSE OU DOIT ETRE STOCKE CE" 


CALL "HEX*< AD+BD5>".20.2* BBC" PRIMT ENO 


• 7F.8D.0E.O3.7$.A2.OO AD.0l - AO.80.05.AO-C?.29-90-08.ES*.2? 


.10.1.28.7-39.3.48.45.53.45.62.7.AF.3.B7.4 


• ne.4.l3E.2144.5.l47.1,14A.4.14F.4B 

. 1.1 

[•. 22A • 246.88 • 229 • 245 • 60.22A • 248. BA. i*C 12 • CC09 


•EB•0800.DSCA.85•3A?•22A?. 8 A.ECA?.EEA?.*.».* 


* 




& 


DECOUVREZ LA BÊTE 
A COMMUNIQUER U 


LA PROMOTION DU MOIS 

Faites parler votre ORIC pour 249,00 F TTC* 
avec le synthétiseur vocal TECHNIMUSIQUE. 

Interface TVS, transformez votre ORIC 1 en ATMOS 
pour 139,00 f TTC* 

• Offre valable jusqu’à épuisement des stocks. 

ARAL c'est aussi 

• AMSTRAD 

• COMMODORE 

• Compatible IBM 

• EXEL VISION 

• et plus de 2 300 logiciels 

Toules les marques en stock 


93.62.44.48 + 

LE GUIDE DE NICE 
STRATMO’S CLUB 




Reprise de votre ORIC pour tout 
achat d'un télestrat. 


VENTE PAR CORRESPONDANCE. 

ARAL 


22, Av du Maréchal Foch 
- 06000 - NICE Tél. 93.92.21.85 












Du nouveau, en 
Forth ORIC : 
après le Forth 
Tansoft, le 
Jasmin-Forth, le 
jeune Télé-Forth 
du TELESTRAT, 
voici que le 
fameux F83 est 
disponible pour 
ATMOS en 
attendant la 
cartouche 32 K 
pour 

TELESTRAT. 


Michel ZUPAN 


UN FORTH PROFESSIONNEL 

Le F83 a été développé à Berke¬ 
ley selon les normes du Forth-83 
par Mike PERRY et Henry 
LAXEN. Les diverses "FORML 
conférences" du Forth Interest 
Group l'ont promu désormais 
comme le must des standards du 
langage. 

Jusqu'à ce jour, le F83 n'était 
implanté que sur des machines 
professionnelles CP/M ou MS- 
DOS. C'est un véritable "tour de 
forth" que d'avoir permis son ins¬ 
tallation complète sur une 
machine "familiale" telle que 
l'ATMOS. 

C'est également une consécra¬ 
tion pour le SEDORIC (ou le 
STRATSED) qui s'élève ainsi au 
rang des grands systèmes d'ex¬ 
ploitation. Le forthien peut désor¬ 
mais développer sur son petit 
ORIC des applications qui tourne¬ 
ront sur un IBM-PC. 

Plus que par l'introduction d'un 
nombre considérable de mots 
nouveaux ou l'intégration de prin¬ 
cipe de l'éditeur plein-écran, du 
macro-assembleur, du décompi¬ 
lateur, du débogueur, du multi- 
tasker (fonctionnement en multi¬ 
tâche), le F83 se distingue de ses 
prédécesseurs par la mise en jeu 
de nouveaux concepts qui chan¬ 
gent ra<l iiement son esprit. 
Trois d ■ >: eux sont particuliè- 

remeu irry ntants : 


LES FICHIERS 

Le F83 abandonne son propre 
DOS par gestion directe de la dis¬ 
quette secteur par secteur (celui- 
ci reste toutefois disponible pour 
des applications locales où il 
convient d'optimiser l'occupation 
et les accès disque) au profit 
d'une interface universelle avec 
le DOS hôte. 

Les fichiers système, source, 
code, texte, vidéotext, sont des 
fichiers SEDORIC comme les 
autres que le FORTH peut direc¬ 
tement charger, sauver, ouvrir, 
fermer, cataloguer, renommer, 
copier, etc. selon une syntaxe 
commune à tous les grands DOS. 
L'ouverture vers l'extérieur est 
assez fabuleuse : le Forth peut 
s'amuser à renuméroter un pro¬ 
gramme Basic sans même le 
charger en mémoire et ce pro¬ 
gramme Basic pourra utiliser un 
fichier de routines en LM mis au 
point par le macro-assembleur. 
Une nouvelle gestion des tam¬ 
pons, chacun vraiment taillé à 1 
kilo-octet sans zéros de chaînage 
entre les blocs, garde au Forth 
l'attrait de la mémoire virtuelle 
transparente. 

LES VOCABULAIRES 

Ils sont désormais totalement 
indépendants les uns des autres. 
VLIST a disparu : WORDS liste 
les mots d'un seul vocabulaire. 
CONTEXT devient une pile de 
vocabulaires que l'utilisateur 
enchaîne à son gré. ONLY réduit 


le système à sa plus simple 
expression. ALSO ajoute un 
vocabulaire pour l'interpréteur, 
SEAL l'isole, PREVIOUS le sup¬ 
prime. 

Si vous introduisez un compila¬ 
teur de p-CODE, votre FORTH ne 
comprendra plus que le... PAS¬ 
CAL ! 

Attendez, ce n'est pas tout : les 
vocabulaires sont "tissés", ce 
qui accélère passablement la 
compilation. Soit dit en passant, 
ceux qui aiment les trucs géniaux 
mais hyper-complexes vont être 
servis avec cette histoire de 
vocabulaires tissés... 


LES MOTS DIFFERES 

Dernier des trois principaux nou¬ 
veaux concepts du F83 et pas 
des moindres, les mots différés 
ou vectorisés, définis par DEFER, 
sont absolument diaboliques. A 
nous la programmation ascen¬ 
dante ou descendante, la récur¬ 
sivité, la métacompilation ou les 
reconfigurations les plus démen¬ 
tes. 

A titre d'exemple, voici comment 
en F83, on change un Minitel en 
terminal Forth. Débranchée la 
péritel ! Grand-mère peut suivre 
Dallas ! 

Pleurez pas : pour les utilisateurs 
de FIG que vous êtes probable¬ 
ment encore, voici un équivalent 
dans le deuxième écran. Ça fait 
un rien bricolo, vous ne trouvez 
pas ? 
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Ch 


FILE 


0 ) 
1) 
2 ) 
3) 
4 ) 
5) 
G) 

7) 

8 ) 
9) 


I0SEP86 MZ 


(10) 
( 11 ) 
< 12 > 


MINITEL.FTH / SCRNit 1 
\ MINITEL TERMINAL FORTH F83 
ONLY FORTH ALSO DEFINITIONS HEX 

M-EMIT < n - ) \ Envoie un caractère au minitel et à l’écran 

DUP OUT (EMIT) ; 

M-CR < - > \ retour chariot minitel et écran 

D OUT A OUT (CR) ; 

SCROLL < - ) \ minitel en mode rouleau 

IB OUT 3A OUT 69 OUT 43 OUT ; 

M-ON ( - ) \ minitel terminal ’on’ 

M-OPENCOM SCROLL 

[’] M-EMIT IS EMIT t’I M-CR IS CR ; 

M-OFF ( - ) \ minitel terminal ’off’ 

[’] (EMIT) IS EMIT [’] (CR) IS CR : 


(13) DECIMAL 

(14) \ c’est tout ! avec OUT ( n - ) qui envoie un caractère sur le 

(15) \ port série et M-OPENCOM qui configure l'UART pour minitel# 


2 


SCRNIl 102 

< 0) ( MINITEL TERMINAL FORTH pour FI Ci-FOR TH ORIC 9/86 ) 

<. 1) FORTH DEFINITIONS HEX 

( 2) 320 CONSTANT UART ( adr de la carte série 6S51 à ajuster ) 

( 3) : M-OPENCOM ( - ) ( .reset 1200 bauds 7 bits 1 stop paire ) 

< 4) UART 0 OVER 1+ C! 65 CVER 2 + C! 38 SWAP 3 + C! ; 

< 5> CODE M-EMIT ( n - ) ( envoie car. sur minitel et écran ) 

< 6> 0 ,X LDY, HERE 6 + JSR. 'EMIT CFA 0 JMP, 

C 7) BEGIN, UART 1+ LDA, 10 il AND, 0= NOT UNTIL, 

< 8'> . UART STY, 0 il LDY, RTS, ;C 

( 9) CODE M-CR D il LDY, ’ M-EMIT 8 + JSR, A « LDY, ’ M-EMIT 8 + 

(10) JSR, ' CR CFA @ JMP, ;C 

(11) ’ EMIT CFA 0 CONSTANT ’EMIT ( code EMIT d’origine ) 

( 1‘?î ’ CP CFA 0 CONSTANT ’CR ( code CR d'origine ) 

(13) : M-ON M-OPENCOM ’ M-EMIT ’ EMIT CFA ! ’ M-CP ’ CR CFA ! ; 

(14) : M-OFF 'EMIT ’ EMIT CFA ! ’CR ’ CR CFA ! ; 

(15) DECIMAL ;S# . 


CLAVIDACTi 3 of(D® ECHECS isof®© 
DIT..? D'AC ! i 3 of®® ELEPHORMioofG 
MATH-SAM 120F® DAMAEiooF® 
MUSIRAMAi 4 of®® OUTIMATIC i2 0 f® 
LISSAGES i2of®®@ SYSTEM’ANIM. i4of®.- 
MEPHISTO IooFC^L 
CITEdeCRISTALisoF®® 

® TELESTRAT disq (+55 Frs) 


DIALOGUE^ 


® ATMOS 


® MO 5/6 *= 



Pour plus de détails sur nos logiciels, 
nos matériels, connaître l'adresse 
de nos dépositaires... 

J5ERVEUR MINITEL: 75.40.48.44 
de 18 h a 9h ei les »»«k-«nd, 
ou notre catalogue 
\complet, contre 
\2 timbres à 

LOGICIELS, \ J^2,20F 

MIC RO-INFORMATIQUE 

et 

PER l-INFOR M AT 10 UE 


80, rue des fourniers 07 500 GUILHERANO 


□ disquette TELESTRAT (♦ 55 Frs/disq.)_ □ cas. ATMOS _ Dcas. M05/6 _ réglement à la commande, port 15 F 

Nom_Fronom_Adreiso . _______ _____ 
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HARDCOPY MCP 40 

pour 

TELESTRAT 

Grégory KURZ 


V 


oici le tout premier programme que nous ayons reçu 
pour le TELESTRAT. L'auteur explique lui-même 
pourquoi il l'a conçu. 


très court, très simple et très lent. 

PRINCIPE : L'instruction POINT (x, 
y) ayant totalement disparu dans le 
terrible HYPER-BASIC, le program¬ 
me utilise BIN$ (PEEK(40 E)), afin 
d’obtenir, sous forme binaire, 
chaque case mémoire de l'écran Hl- 
RES. Puis -, il analyse les bits 0 à 5 
(6 et 7 bits spéciaux) : BIT = 1 => 
imprime BIT = 0 => passe 
Il est conseillé d'être en mode 
HIRES pour lancer le programme et 
de préparer son THEORIC ainsi 
que sa limonade glacée : dur, dur, 
le temps d'exécution ! 


J'ai acheté un Telestrat (après deux 
ans d'Oric Atmos) et, après une 
semaine, je me suis aperçu avec 
horreur que l'instruction HCOPY 
(hardcopy hires sur imprimante) ne 
fonctionnait pas avec l'imprimante 
MCP-40. J'ai donc téléphoné à 
Eurêka et l'on m'a dit que 
l'imprimante devait obligatoirement 
être du type EPSON FX-80 pour 
que HCOPY puisse être utilisé. 

J'ai donc écrit moi-même un 
programme en BASIC pour remé¬ 
dier à ce problème (tous ceux déjà 
publiés dans THEORIC n'étant pas 
compatibles TELESTRAT). Il est 


ORGANIGRAMME DE 
HARDCOPV MCP-40 

Ç oebut) 

ZEL 


PREPARATION 
IMPRIMANTE 
ADR - f A000 


CHARGE CASE N 
TRANSFORMATION 
BINAIRE 



0 

Ce 0 GREGORY KURZ 

REn ================= 


2 

REH = HARCOPY HIRES = 


4 

REH = TELESTRAT 


6 

REH = nCP40 


8 

REn ================= 


10 

REn 


15 

LOUT C 18) ILPRINT 'R120,0'' 


20 

FOR I=»A000 TO «BEF0 STEP 80 


25 

FOR J=0 TO 39 


30 

A= 1 :B=6:C=1:U=0:inPRinE 


40 

NEXT JILPRINT "R0,-r' 


50 

FOR J=39 TO 0 STEP -1 


60 

A=6 :B=] :C=-1 :U=40 : mPRIHE 


70 

NEXT J :LPRINT "R0.-1" 


80 

NEXT I 


85 

LPRINT "R":TCOPY:ENO 


100 

)inPRinE 


110 

AS=RIGHT$C8IN$CPEEKCI*J*U)),6) 


120 

FOR K=A TO B STEP C 


125 

9s=nl0s CAS i K , 1 ) 


130 

IF BS="0’- THEN LPRINT "R" îC i", 

0" 


140 

IF 8$=‘T' THEN LPRINT 

0" 


150 

NEXT K:RETURN 
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F 


V 


S* 


Synthétiseur 


220 


ampli 110 F 


UNE VOIX FRANÇAISE DANS VOTRE ORDINATEUR... 

■ ORIC I ' ORIC ATMOS 

... AVEC LE SYNTHETISEUR VOCAL T.M.P.I. 

Disponible chez votre revendeur ou: TECHN1-MUSIQUE &. 

Lrlrl PAROLE INFORMATIQUE 

Centre commercial La Gantière 
Rue Fontaine du Bac 63000 Clermont-Ferrand 
Tél.: 73.26.21.04 



PROTEGEZ 
VOS REVUES! 


CPC Revu* standard Amstrad Schnaidar 

dossier classeur jean, logo et titre blant 
Prix TTC port inclus : 74 F 
Abonna* : 51 F 






THEORIC, Revue des utilisateurs d'ORIC 

dossier classeur gris, logo titre rouge 
Prix TTC port inclus : 80 F 
Abonnés : 59 F 


MEGAHERTZ Magazine 

dossier classeur noir, logo et titre doré 
Prix TTC port inclus : 78 F 
Abonnés : 55 F 


Nom 

Adressa 


BON DE COMMANDE 

.Prénom . 



CLASSEURS 


MEGAHERTZ Abonnés 


CPC 


Théorie 


rt&Acoi* 

Pdt"° n * Ae P°° 


re <ou 


tn*' 


ou* \ 


Non Abonnés 
Abonnés 
Non Abonnés 
Abonnés 
Non Abonnés 


Total 


PRIX 


55,00 

78,00 

51,00 

74,00 

59,00 

80,00 


NBRE 


♦PORT 10'/ à la commande 


OR 





















Reprise de votre ancien ORiC 


Pour l'achat de l'un des ensembles TELESTRAT décrits ci-dessous 


ORIC TELESTRAT 


HYPER-BASIC : 


Structuré et compilé. Plus de 250 instructions qui en font le Basic 
le plus complet et le plus rapide du marché. En plus des 
instructions classiques (toutes les fonctions arithmétiques et 
logiques, structures de contrôles, gestion du son et des 
graphismes haute et basse résolution etc..on trouve la définition de 
procédures (labels), un éditeur plein écran avec commande au 
clavier, ô la souris ou au joystick, scrolting avant/arrière (sur les 
listings), un jeu d'instructions télématiques (attente de 
communication, téléchargement de programmes ou de fichiers via 
le MINITEL..), des instructions de communication avec n'importe 
quel autre ordinateur via le RS 232. Entrées/sorties banalisées et 
bufférisées gérées par numéros de canaux, permettant notament le 
transfert de données de n'importe quelle entrée i n'importe quelle 
sortie. 4 fenêtres d'écran définissables par l'utilisateur. 
L'HYPER-BASIC est interfacé dans le 2 sens avec le logiciel 
TELEMATIC : une arborescence peut rendre la main au Basic, el 
un programme Basic peut appeler une fonction de TELEMATIC. 


Extensions prévues fhard et soft) avant fin 86 


Carte 80 colonnes entièrement compatible VIDEOTEX. Sortie PERITEL 
RVB. Incrustation vidéo possible. 

ORIC NET pour créer un réseau de TELESTRAT pouvant communiquer entre 
eux et partager les memes ressources. Exemple: Un TELESTRAT maLrc avec 4 
MICRODISC et 4 TELESTRAT esclaves en serveurs ou autres pourront 
partager la base de données et tous les périphériques . Cela en fera le système 
multi-utilisateurs le moins cher du marché. 

MIDI : interface avec logiciels de téléchargement de séquences et de sons, 
séquenceurs, plus extension du BASIC permettant de réaliser soi-méme des 
logiciels MIDI. 

MODEM avec numérotation et réponse automatiques. 

Digitaliseur d'images VIDEOTEX fonctionnant à partir d'une caméra 
vidéo. Pour des serveurs "pros"! 

Horloge en lumps réel Cartouche RAM 64k d'extension mémoire 
GANG PROGRAMMER programmateur d’Eproms 2708 à 27512 pour 
développer les applications en ROM. 


TELEMATIC 


Le logiciel intégré qui permet de réaliser soi-même 
facilement un serveur monovoie : 

Emulation MINITEL : Commande du MINITEL au clavier du 
TELESTRAT ou du TELESTRAT au clavier du MINITEL. 
Visualisation des pages MINITEL sur l'écran du TELESTRAT, 
mémorisation des pages VIDEOTEX sur disquette, impression de 
pages sur imprimante standard. 

Composition de pages VIDEOTEX : elle se fait sans dificulté 
comme avec un traitement de texte (couleurs de fond et de 
caractères, lettres simple ou double largeur et/ou hauteur etc..) 
avec la possibilité d'incorporer des graphismes. La gestion d'écran 
se fait au clavier, au joystick ou à la souris. 

iicslipn_d'arbore scences : une fois les pages composées et 

nommées, vous organisez votre arborescence à votre gré : menus, 
pages écrans, pa^es temporisées etc.. Arborescences affichées en 
couleurs, ou imprimées. Line arborescence peut gérer plus de 1000 
pages, une disquette peut en stocker 2 à 300. 

Micro-serveur : Le TELESTRAT ainsi utilisé est un serveur 
mono-voie. Connecté au MINITEL, il attend la communication, 
décroche et lance le serveur. Il peut enregistrer des messages, 
raccrocher au bout d'un temps déterminé etc.. 

florne de communication : déconnecté du MINITEL, il peut 
fonctionner en mode local et un utilisateur peul interroger le 
serveur sur place, exactement comme s'il appelait au MINITEL. 
Avec une arborescence de type journal cyclique, il peut délivrer de 
l'information automatiquement, sans intervention extérieure. 

Interaction possible a vec l'HYPER-BASIC pour l'accès aux 
fichiers ou pour des applications plus sophistiquées. 







- Unité centrale TELESTRAT 64k 

- Unité de disquettes 3” double face MICRODISC (400k) 

- Cartouche programme TELEMATIC 

- Cartouche langage HYPER-BASIC 

- Disquette MASTER STRATSED avec de nombreux utilitaires 
et programmes exemples. 

- Les 3 manuels (Utilisation, Télématique, Index BASIC) 

- Tous les cables (MINITEL, PERITEL, Téléphoné etc..) 

- Alimentation Secteur 220V pour le TELESTRAT et le disque 
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Un "kit développeurs" 

A l'attention des constructeurs ou développeurs 
de systèmes, matériel et logiciels susceptibles de 
fonctionner avec le TELESTRAT, nous avons 
réuni un “KIT DEVELOPPEURS” comprenont 
notamment un dossier système avec tous les 
vecteurs du langage-machine, toutes les 
adresses-mémoire, un dossier technique, un 
programmeur d'EPROMS etc.. Pour tous 
renseignements, contacter Jean-Pierre MORLANE 
au 42 61 20 02. _ 



Votre TELESTRAT en formule crédit ! 

Crédit ô durée variable selon le monlant. Faible apport è la commande et premier versement 3 mois plus tard I 


Ensemble rt'l M m repose : 3900 F. au comptant 
Atacommands <02 F. 

23 mensualités de 200 F. (1* 90 )frjrf après) 

T ü Q. en vigueur «u 1/7*6 : 1*24%. et perceptions 
torttfum 136 F., oonhxmément A ra/rêié Ou 3-7/86. 


Coût total Ou crétfr i012F.(Am DtUetPF comprise) 


E r es m Oée n*2 sens reprise . 4750 F. au comptant 
S te commande 465F. 

?i menîus«*s os 200 F. ( 1* 00 Jour* après ) 

T.E.G an vigueur au 1/7*6 ' 16.24%, et perceptions 
tortaltairoa 232 F . ocnlortnAmsnl è TarrA-A Ou 3/7*8. 
Coût total Ou erAdl : 1535 F. (Ass 064. et PF. comprise) 


Ensemble n'3 sans reprise : 5950 F. au comptant 
A ta commanda : 462F. 

4t menauallAsds 200 F. ( V 90 Jours après ) 
TE O an vtQusur au 177*6 : 1824%. si perceptions 
tortats^es 410 F. oontormèment A r arrête Ou 377/86. 
Coût total du crfcft : 2732F (Au DOLetPF corrpnee) 


E nu-mois n'1 avec «pries : 3300 F su comptant 
A la commande : sens apport 

16 mensuelle* de 250 F. ( t* 00 Jour* après ) 
T E O. an vtgusur au 177/86 :16-24%. si perceptions 
tOftsAalre* M F., centormAment A farrAté Ou 377/86 
Coût total Ou crèon : 702 F. (Au DM st PF comprise) 


Ensemble n‘2 avec r*pote ; 4060 F. au comptant. 

A la oommeno# 228 F 

19 mensusMAs de 250 F ( T 90 *>urs après ) 
T E Q en vigueur au 1/7.86 :1624%. al perceptions 
tortanaires 114 F.. oontormèment A r arrêté Ou 377/86 
Coûl total du crée* 916 F. (Aas. DM et PF comprise) 


Ensemble n'3 arec reprise - 5280 F. au comptant 
4 la commande 77 F. 

26 mensueUèa ds 250 F. ( 1* 90 jour» après ) 
T.E G an vigueur su 177*6.16 24%. et petospoons 
•-."e-A'ea 260 F. contormêmer* a ranèté Ou 37*6 
Coût total du créât. 1617F. (Aas OiM. et PF composa) 


Après acceptation de votre dossier par la Société CREG 19 Rue Lord Byron 75384 PARIS CDX08. 




S.A. au capital de 81 755 000 Fr. RCS. PARIS B 542052907 











































1 ou A TÉJ O B p o u r 

Offre exceptionnelle 




- Unité centrale TELESTRAT 64k 

- Unité de disquettes 3" double face MICRODISC (400k) 

- Moniteur monochrome vert EUREKA MV12 haute résolution 

- Cartouche programme TELEMATIC 

- Cartouche langage HYPER-BASIC 

- Disquette MASTER STRATSED avec de nombreux utilitaires 
et programmes exemples. 

- Les 3 manuels (Utilisation, Télématique, Index BASIC) 

- Tous les cables (Peritel, Moniteur, MINITEL etc...) 

- Alimentation Secteur 220V pour le TELESTRAT et le disque 


- Unité centrale TELESTRAT 64k 

- Unité de disquettes 3" double face MICRODISC (400k) 

- Moniteur couleur RVB/PERITEL 36cm EUREKA MM14 

- Cartouche programme TELEMATIC 

- Cartouche langage HYPER-BASIC 

- Disquette MASTER STRATSED avec de nombreux utilitaires 
et programmes exemples. 

- Les 3 manuels (Utilisation, Télématique, Index BASIC) 

- Tous les cables (MINITEL, PERITEL, Téléphoné etc..) 

- Alimentation Secteur 220V pour le TELESTRAT et le disque 


Des serveurs déjà en 
fonction sur TELESTRAT: 


EUREKA : 
PHAETEL: 
VISMO : 
I.T.S. : 
E.P.V.S. : 
COGECOM 


(1) 42 81 
(1) 43 22 
(1) 43 38 
(1) 42 82 
(1) 69 04 
(1) 43 29 


IN Bureau d'etudes 90 95 
ESPACE MICRO (1) 42 80 
P.A.I. : 49 46 

DUBASQUE : 40 70 


22 72 
17 73 
00 29 
02 41 
94 01 
55 35 
21 00 
26 10 
67 87 
08 07 


Périphériques 


Moniteur monochrome vert MV12 . 1150 

Moniteur couleur EUREKA MM14 . 2490 

Magnétocassette ORIC à piles . 350 

MICRODISC supplémentaire (sans alim.) .. 1790 

Imprimante matricielle COSMOS 80 . 2890 

Imprimante plottcr 4 couleurs MCP40 . 990 


Accessoires 


Souris pour TELESTRAT . 490 

Joystick type QUICKSHOT 1 . 95 

Joystick type QUICKSHOT 2 . 120 

Cable pour imprimante parallèle . 180 

Disquette vierge 3" double face . 39 

Alimentation pour MICRODISC . 490 


Logiciels 

Disquette "JEUX D’ARCADE N’1" (3jeux) .. 200 
Disquette "JEUX D’ARCADE N'2" (3jeux) .. 200 
Disquette "DANGEREUSEMENT VOTRE" .. 200 
Cartouche ROMATMOS (émulation ATMOS) .. 200 
Cartouche ROMORIC1 (émulation ORIC 1)..... 200 
Cartouche "TELE-FORTH" ... 390 


Bon de commande à retourner à : 


ORIC 

TELESTRAT 


LA TELEMATIQUE EN PLUS ! 

Teleph. 42 81 20 02 Tlx. 649 385 

Démonstration et informations sur MINITEL 

au 42 81 22 72 


ORIC INTERNATIONAL 39 Rue Victor Massé . 75009 . PARIS 



Jo souhaite recevoir rapidement un ensemble TELESTRAT n* . (cocher la configuration choisie) 

□ Ensemble n'1 (TELESTRAT avec MICRODISC et cartouches) au prix do 3990 F. 

□ Ensemble n'2 (TETESTRAT avec MICRODISC. moniteur vert et cartouches) au prix de 4750 F. 

□ Ensemble n'3 (TELESTRAT avec MICRODISC. moniteur couleur et cartouches) pour 5950 F. 

□ Accessoires et périph. (préciser) . 

Je vous renvoie mon ORIC 1 □ ou ATMOS □ pour reprise 690 F. OUI □ NON □ 

□ Ci-Joint mon règlement par chèque de . (montant do ma commande . - 690 F. 

on cas de reprise) 

□ Je choisis do régler à réception du colis (montant de ma commande . • 690 F. en cas 

de reprise + 100 F. do frais de contre-remboursement) 

D Je choisis de payer mon TELESTRAT à crédit selon la formule décrite d-contre. en . 

mensualités de . F. Ci-joint mon apport initial de . F. par chèque et les pièces 

nécessaires à la constitution du dossier 

Je bénéficierai d'une garantie totale d'un an Pièces et Main d'oeuvre sur le materiel ainsi qu'une 
maintenance gratuite logiciels (mises à Jour) pendant cette période. 

Nom . Signature fdes parents si client mineur) 

Adresse . 


Professionnels de la télématique, nous 
consulter pour RV. et démonstration 


Code . Ville . 

” joindra à toute demande de crédit un bulletin de salaire, une photocopie de pièce d’identité, une quittance de 
loyer ou tfEDF/GDF. et un Relevé d’identité Bancaire pour la constitution du dossier. 
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Vous avez été très nombreux à 
répondre au sondage que nous 
avons effectué juste avant les 
vacances, preuve de l'intérêt que 
vous portez à THEORIC, notre 
revue. Nous avons toujours ac¬ 
cordé un maximum d'importance 
aux remarques de nos lecteurs, 
leur permettant même d'intervenir 
dans les colonnes de la revue. Au¬ 
jourd'hui, nous récoltons tous les 
fruits de cette attitude car nom¬ 
breux sont les lecteurs nous 
encourageant à continuer, même si 
la marque ORIC ne bénéficie plus 
de la même renommée auprès des 
revendeurs. 

Sur près de 700 réponses reçues, 
525 étaient arrivées à la rédaction 
en date du 15 septembre... Voilà 
pour le concours de pronostics, et 
c'est Laurent MARINIER de Fleury 
les Aubrais qui avec 527 réponses 
prévues, remporte "le gros lot". 
L'après ORIC se dessine à 
l'horizon, pour certains avec un 
autre ordinateur familial (AMSTRAD 
a le vent en poupe !), pour 
d'autres avec un ordinateur plus 
puissant, de type "compatible IBM". 
Il est vrai que, pour le prix, ces 
machines offrent des possibilités 
autres que celles de l'ORIC, fut-il 
complété d'un drive ! 

Mais l'ORIC reste, pour la grande 
majorité, une machine de début sur 
laquelle on passe encore beau¬ 
coup de nuits blanches. Découvrir 
la micro-informatique est une acti¬ 
vité passionnante, et l’ORIC AT- 
MOS est certainement la meilleure 


machine pour ceux qui ne veulent 
pas investir des sommes trop impor¬ 
tantes sans savoir si, par la suite, ils 
continueront à l'utiliser. 

42 % de nos lecteurs sont lycéens 
ou étudiants. Le temps d’utilisation 
moyen de la machine se situe entre 
10 et 25 heures par mois. (13,5 % 
de "fêlés" (!) passent plus de 50 
heures sur leur bécane... ) 

Théorie vous plaît, (ouf ! Merci !), 
tel qu'il est, avec si possible 
davantage d'articles consacrés aux 
débutants. Le nouveau prix satisfait 
83 % des lecteurs, peut-être que 
les 17 % qui restent n'ont pas bien 
compris qu'il est impossible de faire 
comme pour d’autres magazines 
d'informatique où la pub abonde... 
et paie l’ensemble. 

Vous appréciez le contact : 44 % 
des lecteurs ont déjà écrit ou 
téléphoné. La grande majorité est 
satisfaite par ces services. Toutes 
nos excuses à ceux qui ne peuvent 
pas nous joindre (il y a 2 lignes 
consacrées à 100 % à ce service 
fort demandé) ou qui ont reçu 
réponse à leur courrier avec 
presque 3 mois de retard (difficile 
de traiter les dizaines de lettres qui 
nous arrivent chaque semaine... ) 
Partager Théorie avec d'autres 
ordinateurs? Pas question! Tout 
au moins, c'est ce que vous 
souhaitez à 75%... 

Et pour l'avenir, qu'est-ce que vous 
envisagez ? Si 47 % des utilisa¬ 
teurs possèdent un drive (69 % de 
Jasmin) et sont satisfaits par l'en¬ 
semble ORIC + disquette, l'avenir 


se prépare et l’on songe au TELES- 
TRAT (61 %), à un IBM ou com¬ 
patible (22 %). un AMSTRAD (13 
%) ou... à ce bon vieil APPLE 
(4%)! 

Pour conclure, une très bonne 
nouvelle : le prix des disquettes 
de THEORIC baisse et passe à 
116 F pour les abonnés à la 
revue et 146 F pour les non- 
abonnés. De plus, nous créons 
un "abonnement disquet¬ 
tes" : 6 disquettes pour 606 F, 
valable à partir des disquettes n° 11 
(pas d'abonnement rétroactif) et 
suivantes... Encore un bon moyen 
d'économiser de l'argent ! 

Enfin, pour les possesseurs de 
Microdisc sous SEDORIC, rap¬ 
pelons que le programme de 
conversion d'anciens standards 
permet de lire et de transférer, en 
format Microdisc, des disquettes 
prévues pour le Jasmin. NOS 
DISQUETTES SONT DONC UTILI¬ 
SABLES PAR LES POSSES¬ 
SEURS DE MICRODISC SOUS 
SEDORIC (à condition que ce der¬ 
nier soit à jour, avec le programme 
de transfert/conversion). 

Pour éviter ces manipulations, 
nous serions prêts à fournir des 
disquettes au format SEDORIC, 
directement, à la seule condition 
que la demande soit suffisante. 
Clients potentiels, faites vous con¬ 
naître très rapidement. Les prix 
seraient identiques ainsi que les 
possibilités d'abonnement. 
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20, rue de Montreuil - 94300 VINCENNES - ® (1) 43.28.22.06 

du mardi au vendredi :10h30à13h-15hà19h — le samedi 10 h 30 à 19 h 


REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 



SYNTHEVOC 1 


PROMOTION 





Le lecteur de disquette que votre Oric préfère. 



Il ne lui manque que la parole”, synthé. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard quun politicien en 
rampaqnp 1 

□ synthétiseur vocal. 550 F 240 F 



MODEM 

Votre ORIC s'ouvre sur l'extérieur. Il “discute” 
avec ses semblables et accède au réseau “minitel” 
Fourni avec interface intégrée et logiciel 


□ modem DIGITELEC 


1490 F 



□ moniteur couleur 


2490 F 



Grâce à cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 
□ interface tous jeux 360 F 


Rallonge Péritel 

Ne soyez plus “collé” à l'écran ! 

□ rallonge péritel.95 F 



Imprimante CITIZEN 1200 

120 CPS matrice 9x9- traction ou friction • jusqu'à 
3 ex. compatible EBSON - garantie 2 ans - interface cen 
ironic intégrée 

□ imprimante CITIZEN 120 D . 2490 F 


Magnétophone 
Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis. 
Entrée DIN ou Jack. Niveau réglable. Témoin 
sonore et lumineux. Alimentation intégrée 
□ magnétophone 360 F 



Imprimante MCP 40 

L’imprimante 4 couleurs aux couleurs d'ORIC ! 




□ lecteurdoubletête 


2.490 F 


□ atmos . 990 F 





PROMOTION 





logiciel ORIC 1 exclusivement 



pour 2 titres : 145 F pour 3 titres : 195 F pour 4 titres : 220 F pour 5 titres : 250 F • 


□ carnet d'adresses 


□ jogger 


□ mushroom mania 



□ trace dump 


□ cal'oric 


□ centipède 



□ black base 


□ le lièvre et la tortue 


□ gastronon 



□ oric-gestion 


□ le monde animal 


□ oric munch 



□ oric mind 


□ hunchback 


□ facturation 



□ yam 


□ la chenille infernale 


□ ultima zone 



□ guerre des couleurs 


□ morpion 


□ pengoric 



□ gencar 


□ dicodoric 


□ finances 



□ ciros 


□ zig zag 


□ copy écran (pour GP 100) 


□ fromage 


□ acheron's rage 


□ calculus 



□ caractor 


□ ice giant 


□ super break out 





LU U 1 L> 1 L LD UHOOCI IC 




□ 1815. 

160 F 

□ dossier g. 

140 F 

□ meurtre gde vitesse . . 

180 F • 


□ 3 d fongus. 

140 F 

□ dracula's revenge 

110 F 

□ mission delta. 

95 F • 


□ 3 d munch. 

140 F 

□ elephorm/color. 

100 F 

□ moniteur 1.0. 

140 F • 


□ add-sous. 

165 F 

□ élysée. 

145 F 

□ mots croisés. 

120 F • 


□ annuaire. 

120 F 

□ flipper. 

140 F 

□ nessy . 

95 F # 


□ ass. symbol. 

150 F 

□ formule 1. 

130 F 

□ oric base. 

115F # 


□ assimil (anglais) . . . . 

250 F 

□ frelon. 

120 F 

□ orthocrack vol. 1 . . . . 

165F # 


□ atlantid. 

120 F 

□ frigate comm. 

120 F 

□ orthocrack vol. 2 ... . 

165 F # 


□ atlantis. 

140 F 

□ fromage. 

. 95 F 

□ orthocrack vol. 3 . . . . 

165 F # 


□ basic étendu. 

120 F 

□ gest (gest. banc.). . . . 

130 F 

□ outimatic 1. 

125 F : 


□ basic turbo. 

140 F 

□ gestio de stock. 

145 F 

□ pasta blasta. 

100 F * 


□ bibliofiches. 

120 F 

□ hades. 

250 F 

□ pengoric. 

105 F * 


□ big baston. 

125 F 

□ hyperspace 4 . 

120 F 

□ planète bleue. 

120F * 


□ brique à brac. 

90 F 

□ images (d.a.o.). 

130 F 

□ polyfichier. 

180 F * 


□ budget familial. 

135 F 

□ insect insanity. 

100 F 

□ r.d.v. de la terreur . . . 

95 F • 


□ bugs buster. 

125 F 

□ intox et zoé. 

180 F 

□ rat splat. 

105 F • 


□ business man. 

140 F 

□ j'apprends l'anglais. . . 

125 F 

□ reverse. 

. 90 F • 


□ calcul mental. 

120 F 

□ j'apprends la c.a.o.. . . 

150 F 

□ saga. 

150 F • 


□ canni bail. 

100 F 

□ karaté. 

. 99 F 

□ stanley. 

120 F • 


□ carmaniac. 

110 F 

□ l'aigle d’or. 

180 F 

□ star. 

120F • 


□ caspak. 

100 F 

□ la cité maudite. 

140 F 

□ starter 3 d. 

129 F • 


□ categorie. 

. 95 F 

□ la flûte inca. 

120 F 

□ stresse. 

120F • 


□ callenger. 

130 F 

□ lancelot. 

100 F 

□ super jeep. 

120F • 


□ citadelle. 

125 F 

□ le dernier métro .... 

145 F 

□ System animation 

140 F • 


□ clavidact. 

125 F 

□ le diam. île maud. . . . 

160 F 

□ teknis. 

120 F • 


□ clovis 1 (échecs) .... 

150 F 

□ le général. 

120 F 

□ tendre poulet. 

120 F • 


□ cobra. 

. 95 F 

□ le mand. dr genius . . 

140 F 

□ terminus. 

120F 9 


□ cobra pinball. 

140 F 

□ le millionnaire. 

120 F 

□ the hobbit. 

180F 9 


□ colorie. 

. 95 F 

□ leminotaure. 

165 F 

□ tic tac. 

120F # 


□ colossal adventure . . . 

130 F 

□ retour dr genius .... 

160 F 

□ tortue logic. 

150F . 


□ compilateur graphique 

250 F 

□ le secret du tomb. . . . 

140 F 

□ triathlon. 

150F . 


□ crypt show. 

100 F 

□ le trésor du pirate . . . 

. 95 F 

□ ultima zone. 

100 F : 


□ dam buster. 

105 F 

□ lissage. 

125 F 

□ une affaire en or ... . 

145 F * 


□ damsel in distress . 

120 F 

□ logo vl o. 

295 F 

□ vision. 

120F * 


□ dedal. 

110 F 

□ lorigraph. 

290 F 

□ vortext. 

260 F * 


□ dialogue. 

125 F 

□ loritel. 

395 F 

□ waydor. 

105 F • 


□ digger. 

100 F 

□ macadam bumper . . . 

160 F 

□ world war 3. 

. 95 F • 


□ dit ?d'ac ! (sc. nat. 5 8 ) 

. 75 F 

□ master paint. 

250 F 

□ xénon 1. 

100 F • 


□ dit ? d'ac ! (sys. aut.). . 

. 75 F 

□ math-sam (math.prim.) . 

125 F 

□ xénon 3. 

105 F • 


□ don juan et drageurs. . 

140 F 

□ méfies-toi de méphisto. 

. 80 F 

□ zorgon s revenge . . . . 

105 F • 
















□ interfaces pour oric. . . 

. 59 F 

□ l’oric à l’affiche. 

. 95 F 

□ guide pratique oric 1. . 

. 75 F • 


□ l’oric à nu. 

151 F 

□ prog. en lang. mach. . . 

. 95 F 

□ prog. pour oric 1 . . . 

. 59 F • 


□ guide pratique atmos . 78.50 F 

□ mieux prog. sur oric . . 

110 F 

□ la prog. jeux aventure . 

. 90 F • 


□ programme pour oric 1. 

. 85 F 

□ applications du 6502 

128 F 

□ la conduite de l'oric . . 

. 80 F • 


□ boite à outils pour oric . 

. 35 F 

□ manuel réf. t2. 

120 F 

□ apprenez élec.sur oric . 

110F • 


□ jeux en basic sur atmos 

. 49 F 

□ manuel de réf. tl. . . . 

138 F 




□ 56 prog. pour oric . . . 

. 78 F 

□ t-dos et ses fichiers . . 

150 F 




INTERFACE T.V. 



Cette interface va cous permettre de transformer votre moniteur couleur en T.V. 

□ interface T.V. 1390 F 


□ imprimante MCP40 (sans câble) . . 990 F 

□ câble imprimante 160 F 

□ stylos pour MCP40 70 F 

□ rouleaux papiers MCP40 (par 2).65 F 


Cassettes vierges C20 

□ les 5. 45 F 

□ les 10 . 80 F 

□ disquette vierge 3 pouces. 35 F 


Câble Moniteur 

Pour brancher votre Oric à un moniteur mono¬ 
chrome 

□ câble moniteur 95 F 



TELESTRAT 

La télématique à la portée de tous ! 

Puissant (64 K), doté d'un basic "costand' (plus de 250 
instructions), compatible ATMOS ou ORIC (par cartouche), 
accompagné d'un lecteur de disquette double tète (400 K) 
le TELESTRAT est déjà ainsi un ordinateur “top niveau” ! 
Ajoutez-y toutes les ressources télématiques qu'il est capable 
de gérer sans interface, câble ou logiciel supplémentaire puis¬ 
que le TELESTRAT est le seul ordinateur où toutes les fonc¬ 
tions "MINITEL" sont intégrées d'origine et vous comprendrez 
que le TELESTRAT c’est l'ordinateur de demain disponible 


dès aujourd'hui ! 

□ TELESTRAT.3990 F 

□ souris .490 F 

□ cartouche ROMATMOS 200 F 

□ cartouche R0M0RIC1 . 200 F 



Esthétique, robuste, pratique le TIRVITT 2 vous séduira ! 
Contacts par micro-switches. un contacteur sous le 
socle permet le choix 4 ou 8 directions. 

□ TIRVITT 2 .150 F 



Le “must' pour les amateurs de graphisme. Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
“top niveau” des résultats obtenus, (ex. options : faire 
des points, traits, boîtes, cercles, texte, remplir, “zoom”....) 
. qraphiscop .990 F 



□ joystick compétition PRO. 170 F 

U bloc almi URIC IbUF 

n alun 12 V pour péritel 75 F 

□ rallong de bus 1 slot .110F 



Cette interface vous permet de laisser brancher en per¬ 
manence trois appareils utilisant la prise péritel. 

□ interface multiplier. 750F 


COMMENT COMMANDER : Je possède: DORICl □ ATMOS 

- Cocher !e(s) articlels) désîré(s) oti faites en une liste sur une feuille à part. - Faites le total + frais de port (20 F pour achats inférieurs à 500 F. 40 F de 500 à tOOO F. 60 F pour tout achat supérieur à 1000 F). 

NOM : _ PRÉNOM :_TEL :_ 

ADRESSE : _CODE POSTAL : _VILLE : _ 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 


réscuu 


Tous nos prit sont indicatifs, et en (onction des stocks 







































































































































































TRACÉ DE SURFACE 
EN TROIS DIMENSIONS 

Wolfram LUTHER 


D ans la lignée des routines graphiques en 3D, nous 
présentons un programme qui permet de tracer des 
surfaces sous forme z = f(x,y). (x,y) appartient à un 
rectangle sur écran en haute résolution. 


En outre, nous avons inclus un mandé de procéder à quelques 
simplft,,trla1téfTiënt r ’de lignes corrections manuelles, 
cachées:-.,. . .' v . 1 Nous utilisons encore trois autres 

• L'observateur est placé au pré- sous-routines d'un aspect plutôt 


Admettons que la fonction f soit 
définie sur le carré 
I - 1 , 11 x I - 1,11. Les coordon¬ 
nées des quatre sommets sur 

écran sont fixées en début de./ mier,plêd devantle carré de baçé." ; technique, 
programme (ligne 1080 : Ml,/ • On trace les spgmepts, d^ la ^Pour revenir au point de départ de 
M2, A, B, C, D) et le contour qpfe première;courbe f(x,-f 3 )| ! (S‘= | .1, ,. r lé prochaine ligne à dessiner, il 
dessiné en pointillés. j y - OIRp 'j ). (En pas dp symétrie, de fapt placer le stylo au-dessus du 

Sur le carré de définition, nous, , ,ra&rïie-, poiif , premier point à allumer. Le point 

créons une sorte de grille /j’y j))J, j | ’| J j D u . r ’ 

xi=-1+2»i/N, yj ' ’ ** -— : • 

i = 1. N; j = 0, 


ie yrrne 

= - 1 + 2i 


correspondant de la grille est (XP, 
fVj/N i f' On sauypgprde{lep valeurs pri- y y#)'. Il s'ajoute à la valeur z de < prise 

.. .. .,^t .i"“| ,L ‘;iseppat la f^ctioh'f'etiivojètéi^-Yfljrlîiéepointàallumer,mulltipliéepar 

et, suivant les axes de cettefgnllet i en CY dans les tableâux MX9fc( Sj^l pour la surface située au- 
nous allons tracer les'2*N-pour ^-- :c - i - 


N- 1 


‘il i. j 

dessi-i 


bes : 

z = f (xi ,y) et z = f(x,yj) >; 
au-dessus du plan (X ; y). . 

Au début et à la fin, nous 
nons aussi les arcs qui correspon¬ 
dent aux valeurs i = 0 et j4w , '*j. 
Le nombre N de lignes xi de base 
est introduit au départ etyrjte; 
même pour le pas de travail PAS. 
Les courbes sont d'autant plus- 
précises que la variable PAS a 
une valeur plus élevée. '■ j 

Des valeurs 10=<N<=20 et 
5=<PAS< = 15 sont recom¬ 
mandées. 

Nous avons prévu un troisième 
paramètre (variable booléenne 
SYM$) qui prend en compte une 
éventuelle symétrie dessus- 
dessous de la surface. Si vous 
répondez par "oui”, les courbes 
z = f(x,yj) et z= — f(x,yj), -1 = 
<x< = 1, sont tracées en 
même temps. 

La fonction en question est défi¬ 
nie à l'aide du sous-programme 
FONCTION sur le réseau : 

- 1 = < x < = 1, - 1 = <y< = 1. 

La constante ECHELLE dépend 
des valeurs extrêmes de la fonc¬ 
tions fmax et fmin. 

Veillez à ne pas dépasser les 
bords de l'écran ! 


etMf%( 0-*' d'autres, segments', 
seront tracés, à condition qu'iils , 

si 


dépassent les segments déjà visi- 

jbley p, f i L A ( '| 


dessus, et aussi S = - 1 en cas de 
symétrie dessus/dessous. Finale- 
, m^qt,.J^s valeurs sont arrondies. 
! Laj routine DESSIN SEGMENT 
• Ües ^rqs pçrpèndipulaires mémorise les points de départ 
(DIR = •— ai sont dessinés après (XP, YP) sur écran et (X,Y) sur 
uq| test de visibilité effectué pqr • ,11 x ( - 1,1 J. Elle fait PAS 

la toutine LIGNE CACHEE. ,! ! foi6appelàlasous-routinePR0- 
•iAyant traité la j-ième ligne piarà- CHAINPOINT afin de tracer le 
métrée XP =A +M1 * J — jC ;• Segment en question. 

J + A)/iy, i B = <ŸP -r- M2 < = b Après avoir dessiné l'arc en direc- 
suf, l'écrqh,,-la Mj +'1)iéme est/p'tion de l'axe OX (DIR = 1 ), on 
située derrière^ (de l'angle dé vue revient au point de départ 
-de l'observateur. Seule les ség- (POINTDEPART) pour traiter soit 
rnehts qui dépassent tbüt-cé'qui 
est déjà tracé sqnt représentés, 
les autres sont laissés de côté par 
le sous-programme DESSIN. 

De temps en temps, il est recom- 


la partie symétrique, soit l'arc en 
direction OY (DIR = - 1). 

A la fin, il est recommandé de 
faire appel à un programme de 
recopie d'écran. 



ABONNEZ 

VOUS 


(voir page 50) 
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F i 9ure 



100 ECHELLE= 60 
110 R=SQR<X*X+Y*Y> 
120 Z=ECHELLE*X*Y,'R 


'.r 


2 
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LE PROGRAMME 


10 REM SURFACE D'UNE FONCTION Z=FCX,Y> 
EN 3D 

PU GOSUB 1O0U= REM PROGRAMME PRINCIPAL 
J0 DÛKEH306, 1OO00 
40 END 

85 rem m ltt in t tttttttttttttttttTTTT 
'-=0 REM FÜNCT ION 
1U0 ECHF.LLE=20 

I 10 R=$QR< X*i: ^ Y »'Y n 10 R1 -< P--7 >*< P-7 > 

180 IE RI >9 Tl IFN Z=U ELSE Z=SGR<9-R1 >*E 
r NFI LF 
1PU RETURN 

185 PEUT Tt I TT ! LI T I LTTTTTT:LLTTT TTTTTTT 
190 REM LIGNE LHLIIEL 
£00 1D-I-PMSTJ+HPHS 

£ 10 I F-:. CY > MI LC ID.) :> UNI.»:. CY< =MXL< 1D > )THEN 
L1 T : =" 1 NV IS " El .SE G0SUB250 
££8 RETURN 

£4U REM LIGNE VISIBLE 
£50 I If.-"VIS" 

£60. ir CYM'BftI tD> Tl IFN MXS<ID>«CY ELSE 
MIL':: II*>=CY 
978 RETURN 

285 REITLLI TT LLLLLf 1:4:t::f:L4:4:4:-t.4: i-1 14: 

£80 REM PU1MIDEPhRT 

300 XP=XM = YP-YM : X=XX= Y=YY •• RE rURN 

385 R F M T T T11 T: T T T '11T T T T T T T T T T T T: T T T T T T: T 

390 REM DESSIN 

4 0O CX= I NT< XA+. 5 > 

420 II UT.--•"VIS” THEN DRAW CX-PEEK<#219 
. CY-PEFKC1121A >, 1 ELSE CURSETCX, CY, 3 
430 RETURN 

485 REMI I LTILLLTTTTTTTTTTTTTTTTTTTTTT 
49G REM f 'RiJi HA 1NPOI NT 
5O0 Xfl=XP+< DI RTC+R >>'HPRS 

5 J 8 YA=YP+C B-D1 RTD VNPflS 

r :.£0 X”X+< 1+DIR >•■ l-IPAS' Y=Y+( 1 -D IR VITRAS 

530 G0SUI31 OU 

540 CY-1 MT< Yfl-S 12+. 5 > 

550 008:1 IB?00 

560 TT i-'T<0 THEN CY=0 ELSE IF CY>199 TH 
EN CY=l99 
570 GOSUB 400 
580 :■ :f-XF l : YF -Vl l RE f UE! I 
585 REMTT III ITT 1 1: 11 -+::R ITT TTTTTTTTTTTTT 
590 REM PLli''ERSTYLÜ 
600 GOSUB 100 

6 î0 CX= 11IT < KRh . 5 ;• = CY= I NT C YP-STZ+. 5 > 

630 ir CY<0 Tl II. Il CY=0 ELSE IF CY>199 TH 

I N CY=1 Cl ? 

640 ri.lpSR 1 rx .T. Y . 8 
650 RETURN 

685 RENT E! Lf t M 11 I I I TT TTTTTTT'TTTTTTTTT 

690 REM K.V II! " L-blTENT 

7iu i XM=X.I ' .II'.!' XX=X = YY=Y 

710 FOI? I r-ll -1 10 PAS 

720 I « I H* lE i iOsUBSOÜ ! HEXT 

730 I : = I -I’ii !I• IP 


74Ô RETURN 

785 REMTTT TTTTTTTT:Lt:TTTTTTTTTTTTTTTT* 
790 REM CAS SYMETRIE 
800 GOSUB300 : S=-1 : GOSUB600 = GOSUB708 
810 I = T +PAS : !• I R=- 1 = GOSUË7Ô0 : GOSUË30Ô 
8£0 3=1 GOSUB600 = RE IURN 
99Ü REMTTLTTTTTTTTTTTTTTTTTTTTTTTTTTT 
1000 CLS ■■ PR INT = PR 1 NT = PR I NT 
1010 PRINT" NOMBRE DE LIGUES "; =INPU 
T IL PRINT 

1030 PRINT" NOMBRE DE PRS ENTRE LES L 

IGNES ": 

1030 INPUT PAS=PRINT 

1040 NPAS-N ! PAS = DIM MXLC £TI IRAS , M1 LC £TN 
PAS > 

1059 pRINT" SYMETRIE DESSUS-DESSOUS U 

••-N " .i 

1060 INPUT RLT : IE PET="0" THEN SYMT="V 
RAI" ELSE S'THT'"FAUX" 

1065 REMTT TT TT T T T T t TTM'TTT TiT'T'TTTTTTTTT: 

! 07O 111 RE S • PATTEPIK 1.30 > = DÜKE#306, ttFFFF 
1080 Ml — 1 £0 :M2=100 îA=0:D=0•i>100 :B=“75 
1O90 CURSEI Ml-A,M£-B,1«DRAN-C+H,D+B,1 
1100 DRAM Ai-C,B-D, 1 •• DRAWC-A,-D-6, 1 
1110 DRAW -A-C..-B+D, 1 • PATTERN 255 
1120 REM DOMAINE DE DEFINITION 
1130 FOR 1=0 TÜ 2THPAS 
I 1 40 MXLC T >=--18080 = MILC I >=10000 
1150 HFXT 

1 155 REMTTTTTiTTTTTTTTTTTTTTT.TTTTTTTTT: 

1160 J=0= REPLAT 

1 170 I =0 : : :f : - - A+M1+ JTC -C+A VN : YP=-B+M£+ 
..JTC B+D )/N 

118U X=-1 ! Y=-1 +2TVH 

1 190 D1 E=-1 : S= 1 = GÜSI JB 600 : GOS!JB 700 •• R 
EM BORD 

12O0 IF SYMT="VRflI" THEN GOSUB 3O0=S=-1 
: GOSUB600 : G0SI IB700 
1210 GOSI.IR 300 
12£0 =EFPEÂT 

1230 :D T R=t:S=1 :GQSUB60O=G0SUB700 
1240 : IF SYM*»"VRAI" THEN GOSUB 800 ELS 
t I. = I+PAS 

1250 = DI R=-1 = GOSUB7O0 •• GOSUB300 
1260 ONT IL I =1 IRAS 
1270 J=J+1 
1280 UNI IL J=N 

1290 I =0 = XP=-C+M 1 : YP=D+M2 = X=-1 Y= 1 = .J=N 
13O0 REPEAT: REM BORD 
1310 D T R-1= S=l= GO8UB600«GOSUB700 
1320 IFSYM$="VRAI"T HENGOSUB300*S=-1=GOS 
IJB600 s GOSUB7Ü0 
1330 1 = 1 i-PAS : 

1340 IJNTJL I =NPAS 
1350 RETURN 

1355 REMT TTTTTTTTTTTTTTTTTTTTTTTTTTTT 
1360 REM CROSNARIE-PERROI l-PHILIPPINE = 
1370 REM BASIC TECHNIQUES DE .PROGRAM- 
1 380 REM MOTION. SYBEX PARIS 1.985 
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'nO 



C 


Pousse 

pouss 


lassique, le jeu du Pousse-Pousse ! Vous le connaissez 

. I fl 



certainement sous la forme matérielle d'un cadre rec 
_I tangulaire dans lequel peuvent circuler des carrés mar¬ 
qués d'une lettre. Le but du jeu consiste à remettre dans l'or¬ 
dre alphabétique l'ensemble des lettres. Pas si évident qu'on 
voudrait le croire I 



J.P. MOINE 


En soignant la présentation, cela 
peut devenir un petit exercice de 
programmation en Basic. La ver¬ 
sion de l'auteur est prévue pour 
tourner sur ATMOS. 

On remarque qu'un certain nom¬ 
bre de caractères ont été redéfi¬ 
nis à des fins de présentation 
(lignes 60 à 125). Le tirage au 
sort des lettres de l'alphabet est 
réalisé par un RND totalement 
aléatoire, à la ligne 240. Le mou¬ 
vement de la lettre immédiate¬ 
ment contiguë à la case vide s'ef¬ 
fectue à l'aide des touches de 
direction (lignes 355 à 785). Pour 
terminer, le test de bon aligne¬ 
ment des lettres de l'alphabet est 
réalisé entre les lignes 802 et 
900. 


C F * 

ORG 

K II 

■ L X B 

E Nh 

^ PSQ 

MT l 

\ÜZ V 


2 ' ************************** 


3 • * * 

4 ' * LE POUSSE POUSSE * 

5 ’ * * 

6 ' * (JANVIER 1986) * 

7 ' * MOINE J.P * 

8 ' * * 

9 ' * 3 LOI No 57-298/85-660 * 

10 '* * 


11 • ************************** 

12 ' 

13 ' 

15 PRINTCHRS(17);CHR*(2Û) ;CHR*(6) 
20 CLS:CLEAR:DIM L(30) 

25 PAPER 3:INK 5 

30 PLOT 2,1,9:PLOT 3,1,"_ 


32 PLOT 2,25,9:PLOT 3,25," 


35 FOR X=2 T0 24 

36 FLOT 2,X,9:PLOT 3,X,": PLOT 4,X,8 

37 PLOT 35,X,9 :PL0T 36,X,: PLOT 37 
, X, 8 

38 NEXT 
40 ' 

42 PLOT 7,3,8:PLOT 7,3,1:PLOT 9,3,"LE 
JEU DU POUSSE-POUSSE":PLOT 32,3,5 

50 ’ 


55 GOSUB 1000 
60 '. . . rede-f. . . 

65 REPEAT:Y=Y+1 
70 FOR X=0 TO 7 
75 READ A 

80 POKE #8400+(8*(114+Y))+X,A 
90 NEXT 
95 UNTIL Y=11 

100 DATA 63,32,32.32,32,32,32,32,63,0 
,0,0,0,0,0,0,63,1,1,1,1,1,1,1 
110 DATA 32,32,32,32,32,32,32,63,0,0, 
3,0,0,0,0,63,1,1,1,1,1,1,1,63 
120 DATA 32,32,32,32,32,32,32,32,1,1, 
1 , 1 , 1 , 1 , 1,1 

122 DATA 33,35,38,44,56,48,32,63,63,1 
,3,7.13,25,49,33 

123 DATA 12,18,37,41,41,37,18,12 
125 ' 

130 REPEAT:P=P+1 

131 INI 5:PLQT 32,3,5:WAIT 10:INK 4:P 
LOT 32,3,4 : NAIT 10 

132 UNTIL P=10:PLOT 32,3,4 
140 • 

145 PLOT 6,5,"stttttttttttttttttttttu 
z t tu" 

150 PLOT 6,6,"ystustustustustustustuz 

-, «,li 

155 PLOT 6,7,"yy z y sy zy z y zy zy zz 
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_ Il 


160 

PLOT 

6,8, " 

y vw::vwx vw::vw::vw«vw::vw:: z 

1 65 

PLOT 

|t 

6,9. " 

ystus tustustustustustuz 

1 70 

FLOT 

6, 10, 

"yy zy zy zy zy zy zy z 

175 

FLOT 

6,11. 

" y vm:: vwx vwxvwkvwkvwkvws 

Z 

180 

PLOT 

6. 12, 

"ystustus tustustustustu 

185 

PLOT 

6, 13, 

"yy sy zy zy zy zy zy z 

190 

PLOT ' 

6, 14, 

"yvwxvwxvwxvwxvwxvwxvw:: 

195 

PLOT 

6, 15, 

"ystus tustustustustustu 

200 

PL OT 

6,16, 

"yy zy zy zy zy zy zy z 

205 

PLOT 

o,17. 

"yVWaVWKVWKVWXVWÜVWÜVWK 

210 

FLOT 

6. 18, 

"VWWMMMUWWMMMWWWMMWWMWM 

21 1 
• 1 

PLOT 

6.20. 

II 

O J O 

FLOT 

31,19 

,"z z": PLOT 31,20,"z 

": FLOT 31 

. « 

_» il 

215 

tttt 

PL G r 

6,21, 

"sttttttttttttttttttttt 

218 

l PLOT 

6,22 

, "y" 

219 

PLOT 

—? O*"» 

/ i •— «L 

.12:PLOT 8,22,0:PLOT 9,: 


2,"APPUYEZ SUR UNE TOUCHE ": FLOT 32,22 
,8 

220 PLOT 33,22,4:PLOT 34,22,"z" 

221 PLOT 6,23, "vmwmwmwwwwwmwmwwmwmwmm 
wwwwww:: " 


230 '...tirage au sort... 

235 

240 A*=KEYÎ: T=RND <1): IF NOT FEEK(#208 
>056 THEN 240 
245 PLOT 7,22.8:PLOT 8,22," 


250 ' 

260 FOR N ~7 TO 16 STEP 3 
270 FÛF: X=8 TO 26 STEP 3 
280 ' 

290 T = INT<RND(1>*28)+1 
300 1F L(T)=75 THEN 290 

315 IF T=27 THEN PLOT X,Y,CHR*(32): GO 

TO 330 

316 IF NOT T=28 THEN 320 ELSE A=X:B=Y 

317 PLOT X+l,Y+l,CHR*(127): PLOT X-1,Y 
+1,CHR*(127):PLOT X-1,Y-1,CHR* <127) 

318 PLOT X,Y-1,CHR*(127>: PLOT X,Y+1,C 
HR*(127): PLOT X+1,Y-l,CHR*(127> 

319 PLOT X—l,Y,CHR*(127): PLOT X + 1,Y,C 
HR* (127) :PLOT X, Y, CHR* (127) .-GOTO 330 

320 PLOT X,Y,CHR*(64+T) 

330 LU) =75 

340 NEXT X 

345 NEXT Y 

346 ZAP:X=A: Y = B 

350 ' 

355 '.Mouvements. 

360 

365 GET A* 

370 ' 

385 ' 

390 (F A*=CHR*(27) THEN END 

391 IF A*=CHR* (9) THEN 500 


392 1F A*=CHR*(10) THEN 600 

393 IF A*=CHR*(11) THEN 700 

394 IF A*=CHR*(116) THEN PLOT 33,22," 
*":GOSUB 800:PLOT 33,22," ": GOTO 360 

400 

410 IF X=26 THEN PING:GOTO 350 
420 FLOT X+4,Y-l,CHR*(127): PLOT X+4,Y 
,CHR*(127):PLOT X+4,Y+1,CHR*(127) 

430 PLOT X+l,Y-l,"u":PLOT X+l,Y,"z": P 
LOT X+l.Y+l," k" 

435 F=SCRN(X+3,Y) 

440 FLOT X + 3,Y-l,CHR*(127): PLOT X+3, Y 
,CHR*(127): PLOT X+3,Y+l,CHR*(127) 

450 PLOT X,Y—1," t ": PLOT X,Y,CHR*(F): P 
LOT X,Y+l,"w" 

460 PLOT X + 2,Y-l,CHR*(127): PLOT X+2,Y 
,CHR*(127): PLOT X + 2,Y+l,CHR*(127) 

470 PLOT X-l,Y-l,"s":PLOT X-l,Y,"y":P 
LOT X-l,Y+l,"v" 

480 X=X+3 
485 GOTO 350 
490 ' 

500 

510 IF X=8 THEN PING:GOTO 350 
520 FLOT X-4,Y-1,CHR*(127):PLOT X-4,Y 
,CHR*(127): PLOT X-4,Y+1,CHR*(127) 

530 PLOT X-l,Y-l,"s": PLOT X-l,Y,"y":P 
LOT X—l,Y+l,"v" 

535 F=SCRN(X—3,Y) 

540 PLOT X-3,Y-l,CHR*(127): PLOT X-3,Y 
,CHR*(127): PLOT X-3,Y+1,CHR*(127) 

550 PLOT X,Y-1,"t": PLOT X,Y,CHR*(F): P 
LOT X.Y+l,"w” 

560 PLOT X-2.Y-l,CHR*(127):PLOT X-2,Y 
,CHR*(127):PLOT X-2,Y+1,CHR*(127) 

570 PLOT X+l,Y-l,"u":PLOT X+l,Y,"z":P 
LOT X+l,Y+l,"x" 

580 X=X—3 
585 GQTO 350 
590 ' 

600 

610 IF Y=7 THEN PING:GOTO 350 
620 PLOT X-l,Y-4,CHR*(127): PLOT X.Y-4 
, CHR* (127) : F'LOT X +1, Y-4, CHR* ( 127 ) 

630 PLOT X-l,Y+l,"v": PLOT X,Y+l,"w":P 
LOT X+l, Y+l, 

635 F =SCRN(X,Y—3) 

640 PLOT X-l, Y-3,CHR*(127): PLOT X,Y-3 
,CHR*(127):PLOT X +1,Y-3,CHR*(127) 

650 PLOT X-l,Y,"y":PLOT X,Y,CHR*(F): P 
LOT X + l, Y,"::" 

660 PLOT X-l,Y-2,CHR*(127): PLOT X,Y-2 
,CHR*(127):PLOT X +1,Y-2,CHR*(127) 

670 PLOT X-l,Y-l,"s": PLOT X,Y-1,"t" : P 
LOT X + l,Y — 1,"u" 

680 Y=Y—3 
685 GOTO 350 
690 ' 

700 ' 

710 IF Y=16 THEN PING:GOTO 350 
720 PLOT X-l.Y+4,CHR*(127): FLOT X,Y+4 
.CHR*(127): PLOT X +1,Y+4,CHR*(127) 

730 PLOT X-l,Y—1,"s”:PLOT X,Y-l, "t" ; P 
LOT X+l,Y-l,"u" 

735 F=SCRN(X,Y+3) 

740 PLOT X-l,Y + 3,CHR*(127): PLOT X.Y+3 
,CHR*(127): FLOT X + l,Y+3,CHR*(127) 

750 PLOT X-l,Y,"y":PLOT X,Y,CHR*(F): F 
LOT X+l,Y,"s" 

760 PLOT X-l,Y+2,CHR*(127): PLOT X,Y + 2 
,CHR*(!27': PLOT X + l,Y+2,CHR*(127) 





770 FLOT X-l,Y + l,"v M :PLOT X,Y+l,"w"sP 
LUT X + l,Y+l, 

780 Y=Y +3 
785 GOTO 550 
790 ‘ 

800 ‘ 

802 DD=0:P=0 
805 D-0 

810 FOR W=7 TO 16 STEP 3 
820 FOR Q-8 TO 26 STEP 3 
825 D=D+1 

830 IF SCRN(Q,W)=64+D THEN P=P+1:G0T0 
840 

833 IF DD=1 THEN PLOT Q-1,W+l,"v":PLO 
T Q+1,W-1,"u": GOTO 836 

835 PLOT Q-l,W+l," t " : PLOT 0+1, W-l, " I " 

836 IF SCRN(Q, W) -127 THEN PLOT Q-1,W+ 
I,CHR*(127):PLOT 0+1,W-1,CHR*(127) 

837 IF SCRN(Q,W)=32 THEN PLOT Q-1,W+1 
, "v" : F'LOT Q +1, W-l, "u" 

840 NEXr 
845 NEXT 

850 IF P=26 THEN PLOT 16,22," BR 

AVO!": GOTO 854 

852 IF DD=1 THEN RETURN ELSE 860 

854 WAIT 500 

855 PLOT 8,22,"VOULEZ-VOUS REJOUER (0 

/N) ":GET G* 

856 IP Gî="n" THEN CLS:PRINTCHR*(17): 
PRINTCHR*(20): END 

857 IF G$="o" THEN 20 

858 GOTO 855 


860 PLOT l1,22,5:PLOT 12,22,"ENCORE U 
N EFFORT!"S FLOT 30,22,4 
870 WA1T 550:P-O 

880 PLOT 7,22,12:PLOT 8,27,0:PLOT 9,2 
2,"APPUYEZ SUR UNE TOUCHE":PLOT 32,22, 
8 

882 FLOT 33.22,4:PLOT 34,22,"=" 

885 GET AT 

890 PLOT 7,22,8:PLOT 8,22," 

":DD=1 

900 GOTO 805 
1000 ' 

1020 FLOT 9,6,"VOUS DEVEZ BIEN ALIGNE 
R" 

1025 PLOT 8,8,"LES LETTRES DE L‘ALPHA 
BET" 

1030 PLOT 9,10,"AU MOYEN DES TOUCHES 
DE" 

1035 PLOT 8,12,"DIRECTIONS OUI PERMET 
TENT" 

1040 PLOT 7,14,"DE DEPLACER UNE DES L 
ETTRES" 

IH45 FLOT 8, lt., "CONTIGUË A L ’ESPACE V 

IDE." 

1050 PLUT 8,18,"EN APPUYANT A TOUT MO 
MENT" 

1055 PLOT 6,20,"SUR LA TOUCHE (T) VUU 
S FAITES" 

1060 PLOT 7,22,"UN TEST DE VOTRE FOUS 
•POUS." 

1090 WAIT 1500:RETURN 




REVENDEUR AGREE ORIC FRANCE 

ouvert du mardi au samedi de9h30à 12 h 15 et de I4h30à 19 h 15 
130, ROUTE DE CORBEIL - 91360 VILLEMOISSON-SUR-ORGE 
Tél. (1) 69.04.04.50 


LOT N° 1 

• ORIC ATMOS 48 K 

• PAVÉ NUMÉRIQUE 

• MANETTE (Type 1) 

LOT N° 2 

• ORIC ATMOS 48 K 

• PAVÉ NUMÉRIQUE 
. MANETTE (Type 1) 

• 4-6 LOGICIELS 


1965,00 


• ATMOS 48 K . 990 

• IMPRIMANTE MCP 40 . 990 

• PAVE NUMÉRIQUE. 490 

• LECTEUR DISQUETTE (SEDORIC) .2490 

• LECTEUR 3,5" (auxiliaire).1 990 

• Etc ."JOYEUX NOËL" 


— 30 F pour achats inférieurs o 
frais de Port — 50 F pour achats de 500 F à 1000F 

— 70 F pour ochats supérieur à 1000 F 

Ci-lOinl un chèque de F : 


500 


* OFFRE 
, SPÈCIALE 
^ NOËL 



NOM . 

PRÉNOM : . 

ADRESSE : . 

Code Postal : ...VILLE 

DESIGNATION Qte 


PU 



P T 


35 








































Amélioration de 



Le défaut majeur de DATA + était 
que, lorsque l'on faisait une faute, 
on était obligé de recommencer 
toute la ligne. Et bien ce problème 
est résolu. Désormais grâce à ce 
petit programme, vous pourrez 
effacer les caractères par groupes 
de 3. Il faudra donc être obliga¬ 
toirement après une virgule. 

Ex : 10 DATAIS, 12, 

Si vous avez mis 12 à la place de 28 
par exemple, appuyez sur DEL. La 
virgule et le 12 disparaissent. Pour 
appuyer sur DEL, il faut toujours 
être après une virgule sinon cela 
fausse le programme. Une excep¬ 
tion : vous ne pouvez pas effacer 
le dernier chiffre d'une ligne. Il vous 
faudra recommencer toute la 
ligne si vous vous êtes trompé pour 
le dernier octet d'une ligne. Vous 
recommencerez la ligne en appuy¬ 
ant sur ESC qui a été redéfinie pour 
l'occasion (son ancienne fonction 
ne servait pas à grand chose). 

10 POKE#9467,#97 / CHANGER 
L'ADRESSE 

20 POKE#9484,#97/ DE LA 


ZONE DE 

30 POKE#94C9,#97/STOCKAGE 
DES CARACTERES 
40 POKE#94F4,#97/#9600 
DEVIENT 

50 POKE#9490,#97 / #9700. 

60 POKE#94BC,#CF / CHANGER 
LA FONCTION DE ESC. 

70 DOKE#94BF,#9600 / 
NOUVELLE ADRESSE POUR 
TRAITEMENT ERREUR 
80 FORI = 

#9600TO#9625:READA$:POKE 
I. VAL (”#"+A$) : NEXT 
90 DATA 

20,D9,CC,20.D9,CC,88,88,88.CE, 
04,00,CE,04,00,CE 
100 DATA 

04,00,4C,4F,94,20,60,20,50.41,5 
4,52,49,43,45,20 
110 DATA 31,39,38,36,88,88 
120 ' DES SOUS PRG EFFACE. 

130 ’ JSR CCD9 / EFFACER 2 
140 ' JSR CCD9 / CARACTERES 
150'DEY/DIMINUER 
160'DEY/LE POINTEUR Y 
170'DEY/DE3. 

180 ' DEC 0004 / DIMINUER DE 3 


190 ' DEC 0004 / LE POINTEUR 
DE LA TABLE 

200 ' DEC 0004 / DE STOCKAGE 
DES CARACTERES 
210 ' JMP 944F / RETOUR AU 
SOUS-PROGRAMME SAISIE DES 
DONNEES 

Copiez ce programme et faites 
RUN. Sauvez votre nouvelle 
version par : 

CSAVE"DATA +",A#9400,E#9625 
Encore une petite astuce ? - Pour 
éviter de poker le poids faible de 
l'adresse de fin de stockage du 
Basic en #9401 et le poids fort en 
#9406 à chaque fois que vous 
continuez de copier des DATA, 
faites : 

FORI = #9400TO#9409 : 
POKEI,#EA:NEXT 

Sauvez votre nouvelle version par 
le même CSAVE que ci-dessus. 

Et voilà, et maintenant, à chaque 
fois que vous utiliserez DATA +, il' 
faudra faire : 

DOKEO.DEEK (#SC) - 
1:CALL#9400, (a, b) 

Voilà ! 


TOUT 


AUGMENTE ! 



LE PRIX DES 
DISQUETTES DE 
THEORIC BAISSE ! 


116 F pour les abonnés 
146 F pour les non- 
abonnés ! 

Bon de commande page 50 
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Lignes 999 à 1040 

S.P. on est sur la case départ. 

Lignes 1200 à 1360 

S.P. case caisse communauté ou 
chance. 

Lignes 1500 à 1600 

S.P. case impôts. 

Lignes 3000 à 3130 

S.P. case simple visite. 

Lignes 4800 à 4999 

S.P. case parc gratuit. 

Lignes 5000 à 5140 


Le jeu a été conçu pour tourner 
sur ATMOS. Le mode d'emploi 
est indu dans le programme. La 
partie en cours peut être sauve¬ 
gardée pour être reprise plus tard. 
Pour tous ceux qui voudraient se 
lancer dans des modifications, 
voici, en détail, l'architecture du 
programme. 


Lignes 0 à 19 

Préparation du jeu et initialisation 
des diverses mémoires. 

Lignes 20 à 170 
Programme principal : envoi aux 
divers sous-programmes. 

Lignes 300 à 370 

S.P. on passe sur la case départ. 

Lignes 400 à 410 

S.P. écriture du nom. 
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S.P. case qui se vend. 

Lignes 6000 à 6110 

Calcul du loyer des gares suivant 

que l'on en ait 2, 3 ou 4. 

Lignes 6120 à 6520 

Test si on a la collection entière 

et éventuellement doublement du 

loyer. 

Lignes 6800 à 6999 

S.P. on est en prison. 

Lignes 9990 à 10070 

Données du programme enregis¬ 
trées sous forme de DATA. 

Lignes 10566 à 10567 

S.P. 

Lignes 11000 à 11170 

Arrangements : possibilités de se 
vendre des terrains entre joueurs 
lorsque tous les terrains sont ven 
dus. 

Lignes 12000 à 12090 

S.P. des arrangements. 

Lignes 15000 à 15430 
Sauvegarde des principales don¬ 
nées et mémoires du programme 
pour pouvoir reprendre le jeu ulté¬ 
rieurement en les relisant. 
Lignes 20000 à 20110 
S.P. liste de toutes les cases avec 
le nom de l'acheteur éventuel. 
Lignes 20120 à 20230 
Boucle qui fait afficher les cases 
achetées par un joueur. 

Lignes 20240 à 20310 
Liste des cases libres. 

Lignes 25000 à 25160 


On ne veut plus jouer. 

Lignes 30000 à 30085 
Un des joueurs n’a plus d'argent. 
Lignes 40000 à 40150 
Un des joueurs veut vendre un 
terrain. 

Lignes 44000 à 44380 

Positionnement du curseur en 
HIRES pour pouvoir tracer une 
flèche indiquant la position du 
joueur. 

Lignes 45000 à 45900 

Test pour savoir si on a la collec¬ 
tion entière et peut-être placer 
des maisons. 

Lignes 48000 à 48980 

Présentation. 

Lignes 49000 à 49390 
Reprise d'une ancienne partie. 
Lignes 50000 à 50130 

Entrée du nombre et nom des 
joueurs. 

Lignes 50500 à 50680 

Lecture des données (DATA) et 
envoi au programme principal. 
Lignes 60000 à 60350 
On est sur une case déjà vendue : 
deux cas .-(50000 à 60090 - case 
achetée par un autre joueur, donc 
loyer.*60100 à 60360 on est 
chez soi. Si on possède la collec¬ 
tion entière et que tous les ter¬ 
rains soient vendus, on peut met 
tre une maison. 

Lignes 61000 à la fin 
Dessin en Hires du plan du jeu et 


visualisation de la position du 
joueur par une flèche. 

NOTE : S.P. = sous-programme. 
LISTE DES 

PRINCIPALES MEMOIRES 

A$(X) nom de la case X 
V(X) valeur du terrain X 
TN(X,Y) loyer de terrain X 
* avec Y maisons 
U(X) prix d'une maison sur 
un terrain X 

M(X) nombre de maisons 
sur un terrain X 
DS(X) case acheté : si oui 
DS(X) = 7r, sinon 
DS(X) = 0 

P(X) contient le "matri¬ 
cule" du joueur qui a 
acheté la case X 
K%(I) abscisse du joueur sur 
le jeu 

L(l) capital du joueur I 
X%(I) montant des dés fait 
par le joueur I 

FFF somme d'argent que 
Ton peut gagner au 
parc gratuit 

N nombre de joueurs 

NOTE : 

X peut varier de O à 39 
Y peut varier de 0 à 5 
I peut varier de 1 à N. 


0 REM ***** ATMOSAPARIS ***** 

- par Christophe REV - (1985) - 

1 CLS: CLEAR: F'RINTCHRt (17) ;CHR*(20) s PA 
PERO:INK4 

2 G0SUB48000 

3 DI MK*/. (N) 

4 DI ML(N) 

5 DIMX7. (N) 

6 FOR1 = 1 TON 

7 K7. ( I ) *0 

8 X7. (I)=0 

9 L <I)=150000 

10 NEXTI 

11 W=300 

12 DIMDS(40) 

13 DI MP(40) 

14 FFF=0: ASB7.=0 

15 DIMM(40) 

19 1=0 

20 FOR1=1TON 

30 X7. ( 1 ) =RND ( RND ( I ) * 10) * 11+2 
40 K*/. ( I ) =K7. ( I ) +X7. ( I ) 

45 PRINT:PRINTCHR*(4);CHR*(138>; 1 AB(1 
0); P*(I);CHRS<4>:PL0T9,1,2:PL0T9,2,2 
50 PRINT: PRIN T: PRINT: PRINT: PRIN T"Vou s 


avez -fai t"X7. ( I ) "en jouant les des" 

51 WAITW:Wt=KEY* 

52 IFWt="-f "7HEN25000 

53 IFW$="t"THEN20000 

54 IFW*="a"THENl1000 

55 IFW*="v"THEN40000 

56 IFW*=" P " ANDK7. ( I ) C40THEN61000 

57 IFW*="1"THEN20235 

58 IFW*="d"THEN20120 

59 IFW*="s"THEN15000 

62 CLS:IJ=RND(1):JI=RND<1) 

^2)PR INT:PRINTCHR*(4);CHRt(138): TAB(1 
0);P*(I>:CHR*(4):PL0T9,1,3:PL0T9,2, 3 
65 IFK7. ( I ) >=40THEN300 

70 IF K 7. ( I ) =20RK7. ( I ) =70RK7. ( I ) = 170RK7. ( I 
) =220RK7. ( I ) =330RK7. ( I ) =36THEN 1200 
75 IFL(I)< 0THEN30000:G0T0140 
80 IFK7. ( I ) =40RK7. ( 1 ) ■38THEN60SUB1500: 8 
0T0140 

90 IFK7. < I ) = 10THENG0SUB3000: GOTO 1 40 
100 IFK7. ( I ) =20THENG0SUB4800: GOTO 140 
110 I FK7. ( I ) =0 THENGOSUB1000: GOTO 1 40 
120 IF K 7, ( I ) =30 T HENG0SUB6800: GOTO 140 
130 G0SUB5000 

140 IFL(I)<OTHENGT =I : GOT030000 
150 CLS 
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160 NEXTI 
170 I=0:G0T020 

300 REMon passe la.case départ 
310 K7. ( I ) =K7. ( I ) -40 
320 IFK7. ( I ) =0THEN65 
330 L < 1 ) =L < I ) +20000 : I Ni: 1 
340 PRINT: PRINT: PRINT: PRINT"Vous vene 
z de passer la case départ" 

350 PRINT : PR INT"Vous avez"L(I)"Francs 

• • 

360 WAI TW: INK5 
370 CLS:G0T062 

400 IFLEN <F'* ( I ) ) < = 1 THENF'* ( I ) = " " : RETÜR 
N 

410 P* ( I )=LEFT*(P*(IJ,LEN(Pi(IJ J-1J: R 
ETURN 

999 REM —on est sur la case départ 

1000 PR INT : F'RINT : PR INT : F'RINTCHR* (4 ) ; T 
AB(18);CHR*(27);"J"+CHR*(27>;"ECase de 
part” 

1010 FRI NT:PRINT s PRINT:PR INT:PRINI : F'R 
INTSF'C (9) ; CHR* (27) ; M J"+CHR*(27) ; "BFor-f 
ait : 40000 Francs";CHR*(4) 

1020 L(1)=L(I)+40000 

1030 PRINT: PRIN T: PRINT: PRINT:PR IN T : PR 
INT : F'RINTCHR* (27 ) "ANouveau Capital 
L ( I ) 

1040 WAITW:RETURN 

1200 REM chance ou communauté 

1210 ASB7.= I NT (RND (RND ( X7. ( I ) * 10) >*50>* 

100 

1220 IFRND <1)<.5THEN1310 
1230 F'RINT : F'RINT : F'RINT: F'RINTCHR* (4) ;C 
HR* (27) ; "A";CHR* (27) ; " J" ; A* (K7. ( I ) ) 

1240 F'R I NT : F'R IN T : PR 1N T : PR I NT : PR I NT : PR 
INTCHR*(27);"B";CHR*(27);"JVous perdez 
" ; ASB/C; "-f rancs" ; CHR* (4) 

1250 FFF=FFF+ASB’/.: L ( I ) =L ( I > -ASB7. 

1260 F'RINT: F'RINT: F'RINTCHR* (27) ; "FNouv 
eau capital : L ( I );" -francs" 

1270 F'RINT©4,25; "Parc gratuit : " ; FF 

F; "-francs" 

1280 WAITW+W:CLS:GOTO 140 

1300 REM- 

1310 F'RINT: F'RINT: PRINT: F'RINTCHR* (4) ;C 
HR* (27 ) ; "A" ; CHR* (27) ; " J" ; A* (K7. ( I ) ) 

1320 F'R I NT : F'R 1 NT : F'R I NT : F'R I NT : F'R INT: F'R 
INTCHR* < 27);"B";CHR*(27);"JVous receve 
z " ; AS B"/.; " -francs" ? CHR* (4) 

1340 L ( I ) =L ( I ) +ASB7. 

1350 F'RINT: PRINT: F'RINTCHR* (27) : "FNouv 
eau capital : L ( I );" -francs" 

1360 WAIT600:CLS:GOTO 140 

1500 REM -CASES IMPOT- 

1505 V(4)=20000: V < 38) = 10000 
1510 F'RINT: PR INT: F'RINT: F'RINTCHR* (4) ;C 
HR* (27) ; "N"; CHR* (27) ; "A"; A* (K/C ( I ) ) 

1520 F'R I NT : F'R I NT : PR I NT : F'R 1 NT : PR I NT : PR 
INT: INK2: F'RINTCHR* (4) 

1530 F'RINT"Je suis desoie mais je sui 
s contraint par le législateur de prel 
ever"; 

1540 PRINTV (K7. ( I ) ) ; " -francs de votre 
compte en banque" 

1550 L ( 1 ) =L ( I ) —V ( K7. ( I ) ) 


1560 F'RINT: F'RINT : F'R IN r:F'RINTSPC (7) : CH 
R*(27);"EI1 vous reste" ; L ( I );" -francs" 
1570 FFF=FFF+V(KV. (I) ) 

1580 F'RINT@4,25; CHR* 127) "DF'arc gratui 
t : "FFF" -francs" 

1590 WAITW+W:CLS:INK5 
1600 RETURN 

3000 REM-SIMPLE VISITE- 

3010 INK2:F'RINT 

3020 F'R I N T : PR I N T : F'R I NTCHR* ( 4 ) ; CHR* ( 27 
);"A";CHR*(27);"J"; A*(10);CHR*(4) 

3030 IFRND (IX. =0. 51 THEN3080 
3035 IFRND(1)>=.51THEN3110 
3040 PR IN T : PR IN T : F'R I NT : F'R I NT : F'R I NT " 
J'espere que vous n'avez pas apporte d 
es armes car"; 

3050 PRINT" il y a un début d'emeu— t 
e dans la cour alors depechez vous d 
e" ; 

3060 PRINT" partir 
3070 WAITW+W:CLS:INK5:RETURN 
3080 PRINT: F'RINT: PRINT: F'RINT : PRINT" A 
liez poser les oranges que vous avez a 
menees et repartez 
3090 PRINT"aussitôt !..." 

3100 G0TÛ3070 

3110 PR I NT : F'R I NT : F'R I NT : F'R I NT : F'R I NT " 

L'atmosphère de la prison est malsaine 
et vous -feriez mieux"! 

3120 F'R INT "de partir !..." 

3130 G0T03070 

4800 REM-PARC GRATUIT- 

4805 INK2 

4810 PR INT: F'RINT: F'RINT: F'RINTCHR* (4) ;C 
HR*(27);"A";CHR*(27);"J";A*(20):PRINT: 
PRINT:PRINT:FRINT 
4815 IFFFF=0THENFFF=200Û 
4820 PRINT: PRINT: PRINT: F'RINTCHR* (27) ; 
"JVous recevez la somme de" ; FFF; " -franc 
s" 

4830 L < I ) =L ( I ) +FFF : F'R INTCHR* ( 4 ) 

4840 F'RINT: PRINT: F'RINT: F'RINT: F'RINTCHR 
* (27) ; "FNouveau capital : " ; L ( I ) ; " -f ra 

ne s" 

4850 WAITW*2: CLS: FFF=0: INK5 

4999 RETURN 

5000 REM ÜN EST SUR UNE CASE 

5001 T N ( 12, 0 ) = X 7. ( I ) *400 : TN (28, O) =X7. ( I 
)*400:REM calcul loyer pour compagnies 

5002 IFF' ( 12 ) =P < 28 ) THENTN (12,0) =XV. ( I ) * 
1000:TN(28,0)=1N(12,0): REM 2 compagnie 
s 

5010 IFDSU .V. ( I ) ) =F'I THENG0SUB6000: GOTO 

60000 

5020 PÜKE48321,1 : F'OJ E48361,1 : P0KE4848 
1,2:P0KE48521,2:P0KE48641,5:P0KE48681, 
5 

5030 F'R 1 NT : F'R I NT : F'R I NTCHR* ( 4 ) : F'R I NT : P 
R INT: F'RINTCHR* (27) s "J" + " * "+A*(K'/. ( 

I ) ) 

5040 PRINT:PRINT:PRINT:FRINTCHR*(27); 
"J" + " - PRIX : ";V(K*/.(I> ) ; " Franc 

s " 

5050 PRINT: FRINT:PRINT:PRINTCHR*(27); 
"J Capital :";L(I);"Francs";CHR*(4) 
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Cet 


11000 REM -arengements- 

11005 CLS 
11010 F0RK.= 1 T039 

11020 IFK-20RK-40RK-70RK-100RK=170RK- 
200RK=220RK=300RK=330RK=36ÜRK=38THEN11 
040 

11025 IFR (K)=0THENPRINTCHR*(4) 

11030 IFF' (K) ~0THENPRINT@8,9: CHR* (27) ; 
"A";CHR*(27);"N IMF'OSSI BLE" : WAI TW 
11035 IFF' (K J =OTHENPR IN T CHR* ( 4 ) :CLS:GÜ 
TÜ45 

11040 NEXT:INK2 


11050 FURC=1 TON 


11060 Q*=F'*(C)+" : Voulez-vous vendre 
(0/N) s" 

11070 F0RH=1T0LEN(Q*):F0KE48000+H,ASC 
(MID*(Q*,H)):NEXT 
11080 FORD=1TQ39 


1 1090 I FF' ( D X > CTHEN11130 
11100 F'R INT: F'RINT A* (D> ; " ?" ; 

1 1 1 10.GETR*: IFR*<.> "o"ANDR*<> "n"THENl 1 
110 

11120 IFR*="o"THENF'RINTTAB(30);CHR*(2 
7); "AO"!G0SUB12000ELSEPRINTTAB <30);CHR 
*(27);"AN" 

11130 NEXTD 
11140 WAIT100:CLS 

11150 FORII=0T040:P0KE48000+II,32:NEx 
T 


11160 NEXTC 

11170 CLS:INK5:B0T045 

12000 REM -veut vendre 

12010 F'RINT: F'RINT"A qui ?" 

12020 F0RZ=1T0N 

12030 F'RINT" Joueur "Z" :";F'*(Z> 

12040 NEXT 

12050 INF'UT"Quel numéro ";M 
12060 IFM=CTHENRETURN 
12070 L(C)=L(C)+V(D>: L (M) =L (M)-V (D) 
12080 F'RINT : F'RINT : F'RINTF'* (M) ; " vient 
d'acquérir "; A*(D): P(D)=M 
12090 RETURN 

15000 REM Sauvegarde des principales 
mémoires pour reprendre le cour du je 


15010 CLS:PAPER4: INK3 

15020 IFOC=EXP (F'I*9) THEN15040 

15030 DI MSA (40, 7) : OC=EXF' (F'I*9> 

15040 SA (O, 0) =N: SA ( 1,0) =FFF: SA (2,0) = 1 
15050 FORK=1TON 
15060 SA (K, 1)=K7. (K) 

15070 SA(K,2)=L(K) 

15080 SA (K, 3) =X’/. (K) 

15090 NEXT 
15100 FORK=1TQ40 
15110 SA(K,4)=DS(K) 

15120 SA(K,5)=P(K) 

15130 SA(K,6)=M(K) 

15140 NEXT 

151 50 F'R I NT : F'R I NT : PR I NT : F'R INT" 
SAUVEGARDE" 

15160 F'RINT: F'RINT" Nous allons maint 
enant sauvegarder" 

15170 F'RINT"deux tableaux : un de chi 
ii res et 1'" 


15180 PRINT"autre de caractères . 
te sauvegardese tera en mode lent 
15185 F'RINT" Ne perdes pas patience 
car la première sauvegarde est longu 
e . " 

15190 F'RINT: F'RINT" Appuyez sur RETUR 
N - pour sauvegar" 

15200 F'RINT"der ou sur 'ESC' pour con 
tinuer la" 

15210 PRINT"la partie." 

15230 GETR4* 

15240 IFR4S=CHR*(27)THENFAFERO:INK5:C 
LS:G0T045 

15250 IF R4 *■ . CHR S <13)THEN15230 
15260 F'RINT : F'RINT : PRINP'F'REMIERE SAUV 
EGARDE " 

15270 F'RINT" Appuyez sur les touche 
s d ' enregis" 

15280 F'RINT"trement du magnétophone e 
t lorsque" 

15290 F'R INT "vous etes prêt sur ’M* co 
mine marche" 

15300 GETP205* 

1531O IFP205*="M"0RP205*="m"THEN15320 
ELSE15300 

15320 STORESA,"TABLEAU 1",S 
15330 F0RI=1T025:MUSIC1,3,INT((RND(1) 
*U> + 1) , 12: NEXT : F'LAYO, O, 0,0 
15340 F'R INT: F'R INT SPRINT" DEUXIEME SAUV 
EGARDE " 

15350 F'RINT" Appuyez sur les touche 
s d ' enregis" 

15360 F'RINT" t rement du magnétophone e 
t lorsque" 

15370 F'RINT"vous etes prêt sur 'M' co 
mme marche" 

15380 GETP3G5* 

15390 IFP305S=" M " 0RP305*=" m " THEN 15400 
ELSE15380 

15400 STQREP*,"TABLEAU 2",S 
15410 SHOOT 

15420 F'RINT: PR INT: FRINTSPC( 12) "SALUT" 
CHR*(6)CHR*(17)CHR*(20) 

15430 END 

20000 REM- 'Inventaire' - 

20010 KLK=1:GB*="Liste des cases":P0K 
E48012,4:P0KE48013,12:CLS 
20015 F0RM=1TOLEN(GB*):P0KE48013+M,AS 
C(MID*(GB*,M)):NEXT 
20020 F 0 R 0=KLKTOKLK+B 

20030 IF0=20R0=40R0=70R0=100R0=170R0= 
2O0RO=220R0=3OORO=33ORO=36ORO=38THEN2O 
060 

20040 PRINTS2,26;A*(0); TAB(28) ;CHR*(2 
7);"A:";CHR*<27);"C";V(0>;"F," 

20042 IFM(0)=0THEN20050 

20043 F0RY=1T0M(O) 

20045 PRINTÔ-l+Y,26;"*" ; ' 

20047 NEXTY 

20050 F'RINT@5, 26; CHR* (27) ; "Ba ete ach 
ete par ;"; CHR*(27 );"L"; CHR*(27 );"F" ; P 
* (P (0) ) 

20060 NEXTÜ 
20070 KLK=KLK+10 


20080 F'R I NT@2, 26 ; CHR* ( 27 ) 


"AAppuyez s 
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nr une touche pour continuer" 

20090 GETOIL*:IF0IL*=CHR*(27)THEN2011 
OELSE IF KL K 401 HEN20020 
20110 F0RM=17T01STEF— 1 :P0KE48011+M,32 
:NEXT î CLS:GÛT045 

20120 REM Liste en detail pour chaque 
j oueur 

20130 F’RINT : PR INT : PR INT "Lis te en deta 
il pour chaque joueur' " : IIMK6: WA 1 T50 
20140 CLS 
20160 F0RPF-1T0N 

20170 CLS: F'R IN T : F'R I NTCHR* ( 4 ) ;CHR*( 138 
) ; T AB (10) ; F* (FF') ;CHR*(4> :FL0T9, 1,3: FLQ 
T9,2,3: F'R INT : F'R IN T : FR 1N T 
20180 F0RCD=11039 
20190 IF F'R O P (CD) THEN20210 
20200 PRINT :PRINT" * "; A*(CD):1FPP< = 7 
THENINKF'F'ELSEINI (RND (LEN (P* (F'P) ) ) *7+1 ) 
20210 NEXTCD 
20220 WAITW+W:CLS 
20230 NEXTPP:INL5:CLS:GOT045 
20235 PR I NT : PRINT : PRINT : PRINT: PRINT s P 
R INT: F'R INT: F'R I NT : PRINT "L î s te des cases 
1îbres ?":PQKE48005, 1 :CLS 
20245 S*="Liste des cases libres":FQR 
F=1TOLEN(St): INT 5 

20247 P0LE48005+F,ASC(MID*(S*,F)):NEX 
TF 

20250 F0R6=1 T 039 

20260 IFG=20RG=40RG=70RG=100RG=170RG= 
200RG=220RG=300RG=330RG=360RG=38THEN20 
290 

20270 IFF(G)<>0THEN20290 
20280 FRINT:PRINT,"* ";A*(G> 

20290 WAIT50:NEXTG 

20300 F0RF=23T01STEF-1 :P0KE48005+F,32 
: NE X T 

20310 WAITW+W:CLS: INI 5:G0T045 

25000 REM-on veut plus jouer 

25005 CLS:F APER3: INT 4 
25010 F 0RC=1 TON 
25020 FORG=1T 039 

25030 IFP(G)=CTHENL(C)=L(C)+V(G)+M(G) 
*U (G) 

25040 NEXT:NEXT 

25050 PRINT:FRINT:PRINT" Voici les 
sommes de chaques joueurs augmentées d 
e la " ; 

25060 F'R I NT " val eur des terrains ache 
tes par- chacun" 

25070 FR1N1SPRINT:PRINT 
25080 F0RK-1T0N 
25090 F0RG=1 TON—1 
25100 IFL(G)>=L(G+l)THEN25120 
25110 M=L(G):L(G)=L(G+1):L(G+l)=M:F*= 
F * (G) : F'ï (G)=P* (G+l ) : P* (G+l ) =F* 

25120 NEXT:NEXT 
25130 FQR0=1 T ON 

25140 PRINT: FRINTCHR* (27) ; "A "F'ï (0) T AB 
(14)": "L(O)"francs" 

25150 NEXT 

25160 FRINTCHR*(20)CHR*(17)CHR*(6): EN 
D 

30000 REM- 

30001 CLS:Z*=P*(GT): IFN<3THENPRINT: PR 


INTCHR*(4):G0T030015 

30002 FORT=1 TON 

30003 F0RD=1 TON-1 

30004 IFL(D)<L(D+1)THEN30008 

30005 J=L(D):L(D)=L(D+l):L(D+l)=J 

30006 Hi=F *(D): F *(Dr =P* i D+1): F S \ D+ 1 i — 
H* 

30008 NEXTD:NEXTK:GT=1 

30012 PRINT:FRINTCHR*(29) 

30013 PRINT:FRINTCHR*(4)CHR*(27)"J"CH 
R* (27 ) "F "F-* (N) " a gagne avec "L (N) " Iran 
cs"CHR*(29) 

30015 : 

30020 FRIN T : F'R I NT : P RI NT : PR INT: PR I NT : P 
RINTCHR*(27);"A";CHR*(27);"N";P*(GT>;" 
n'a plus d'argent" 

30030 CALL4FAB7:PRINT 

30080 F RINT: PRINT: PRINT: PR 1 NT : FR INTCH 
R*(27);"C";CHR*(27);"J A la 

prochaine !..." 

30085 FRINTCHR*(4)CHR*(20)CHR*(17)CHR 
*(6):INK2:END 

40000 REM—veut vendre un terrain 
40005 CLS:INK2 

40007 PRINT:FRINTTAB(10)"O : rien 

«I 

40010 F0RSS=1 TON 

40020 PRINT: PR INTTAB(9); SS;" : " ; P 

* (SS) 

40030 NEXT 

40040 PRINT:PRINT:PRINT:PRlNT"Qui est 
-ce qui veut vendre (numéro) ?":GETT* 
40050 T=VAL(T*):IFT<00RT>NTHEN40040EL 
SECLS 

4O055 IFT =0THEN40160 
40060 F0RR=1T039 
40070 IFP(R)O T THEN40090 
40080 PRINT:PRINTR;TAB(4);CHR*(27);"A 
"; A*(R) 

40090 NEXT 

40100 INPUT"Combien de terrain voulez 
—vous vendre ";KK 
40110 F0RQQ=1TOKK 

40120 INF'UT"Donnes moi les numéros de 
s terrains que vous voulez vendre";F' 
L 

40130 L ( T ) =L ( T ) +V ( F'L ) 

40140 DS(PL)=0:P(PL)=0 
40150 NEXT 

40160 CLS:INK5:G0T045 
44000 CURSET63,50,1 :RETURN 
44010 CURSET81,50,1:RETURN 
44020 CURSET99,50,1:RETURN 
44030 CURSET117,50,1:RETURN 
44040 CURSET135,50,1:RETURN 
44050 CURSET153,50,1 :RETURN 
44060 CURSET171,50,1:RETURN 
44070 CURSET189,50,1 :RETURN 
44080 CURSET207,50,1 :RETURN 
44090 CURSET184,50, 1 :RETURN 
44100 CURSETl 84,27, 1:RETURN 
44110 CURSET184,45,1:RETURN 
44120 CURSET 184,63, 1:RETURN 
44130 CURSET184,81,1 :RETURN 
44140 CURSET184,99, 1 :RETURN 
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A SUIVRE 





Quelques lecteurs nous ont suggéré cle faire une opération “ Restaurant du Cœur". 

C’est vrai que cette année, il manque ta locomotive de cette opération. A titre d’exemple et selon les 
prévisions, il manquera 500 repas par jour à Rennes. 

Nous avons déjà lancé une telle opération avec notre hebdomadaire Ille et Vilaine Hebclo. 

Nous avons donc décidé de lancer la même opération dans nos autres revues. 

50 °7o du montant de la recette seront reversés à Soisic NICOLET, responsable sur la région de l’opé¬ 
ration Restaurant du Cœur. 




Abonnement 
1 an à 
VISION 
155 F 



SORACQÿ 


151 F 



5 F=1 repas 


Pour cette opération, merci d'utiliser impérativement ce bon de commande. 



OPERATION RESTAURANT DU COEUR 


Nom .Prénom. 

Adresse .Ville 


Souhaite recevoir dans le cadre de cette opération : 


Ci-joint un chèque de.F à l’ordre de SORACOM. 

A retourner à SORACOM, BP 11, La Haie de Pan, 35170 BRUZ. 
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(SUITE) 

2150 IFND*( I)=^ÛO ,, THENNJ=238:60SUB2010:RETURN Claude GUILLOT 

2160 IFND*(I) *"D0#"0RND* (I) ="REB"THENNJ=|25: G0SUB2010:RETURN 
2170 IFND* <I)=" RE " THENNJ=212 : G0SUB2010 : R8TURN 

2180 IFND* < I ) —RE#"ORND* < I ) = "MI BijHENN J=200 s G0SUB2010: RETURN 
2190 IFND* ( I ) = "MI "THENNJ-189: Ü0SUB2010I RETURN 
2200 IFND*(I) ="FA"THENNJ=178:GÜSUB2010: RETURN 
2210 IFND* ( I ) = "FA#"ORND*="SÜL.B" THENNJ= 168: GÜSUB201 Os RETURN 
2220 IFND* < I ) =" SOL"THENNJ=159iG0SUB2010: RETURN 

2230 IFND* ( I ) *="SOL#"ORND* < I > ="LAB"THENNJ»150: G0SUB2010: RETURN 
2240 IFND* ( 1 ) ='*LA"THENNJ=142: G0gül5Sj.p: RETURN 

2250 IFND* ( I ) = "LA#"ORND* (I>- 1, SIB"THENN'J?134: GÜSUB2010: RETURN 
2260 IFND*(I)="SI"THENNJ-126*0OBUB2OlOf RETURN 
2270 IFND* ( I ) = "D0"TWENNJ=|119: G0SUB201&: RETURN 

2280 IFND* <I)="D0#"ORND*<I)«"REB“THENNJ=112:GCSUB2010:RETURN 
2290 IFND*(I)="RE"THENNJ=106:G0SUB2010:RETURN 

2300 IFND* <I)="RE#"ORND*(I> ="MIB"THENNJ=100:G0SUB2010:RETURN 
2310 IFND* <I)="MI"THENNJ=94: G0SUB20 10:RETURN 
2320 IFND* <I)="FA"THENNJ=89:G0SÜB2010:RETURN 
2330 IFND*(I)="FA#"ORND*="SQLB"THENNJ=84:GQSUB2010:RETURN 
2340 IFND*(I)="SQL"THENNJ=79:G0SUB2010:RETURN 

2350 IFND*(I)="SOL#"ORND$(I)="LAB"THENNJ=75:G0SUB2010:RETURN 
2360 IFND* ( I ) •= "LA"THENNJ=71 : G0SUB201Ù: RETURN 

2370 IFND$(I)="LA#"ORND$ <1)="SIB"THENNJ=67:G0SUB2010:RETURN 
2380 IFND*(I)="SI"THENNJ=63:G0SUB2010:RETURN 
2390 NJ=0:G0SUB201O:RETURN 

2395 : 

2396 REM— AFFICHE NOTES — 

2397 : 

2400 PL0T30,YL,CHR*(O)+CHR*(22)+"a k"+CHR*(16):RETURN 
2410 PL0T30,YL,CHR*<0)+CHR*(22)+"b "+CHR*(16):RETURN 
2420 PL0T30,YL,CHR*<0> +CHR* (22) +"c 1"+CHR*(16):RETURN 
2430 PL0T30,YL,CHR*(O)+CHR*(22)+"d "+CHR*(16):RETURN 
2440 PL0T30,YL,CHR*(O)+CHR*(22) +"e j"+CHR*(16):RETURN 
2450 PL0T30, YL, CHR* (0) +CHR* (22) +" -f "+CHR* ( 16) : RETURN 
2460 PL0T30,YL,CHR*(O)+CHR*(22) +"g m"+CHR*(16):RETURN 
2470 PL0T30,YL,CHR*(O)+CHR*(22)+"h n"+CHR*(16):RETURN 

2475 : 

2476 REM— CALCUL TEMPO — 

2477 : 

2480 TEM=T*16:RETURN 
2490 TEM=T*B+T*4:RETURN 
2500 TEM=T*8:RETURN 
2510 TEM=T*4+T*2:RETURN 
2520 TEM=T*4:RETURN 
2530 TEM=T*2+T:RETURN 
2540 TEM=T*2:RETURN 
2550 TEM=T:RETURN 

2555 : 

2556 REM— INITIALISATIONS — 

2557 : 

2560 XL=1 :YL=7:IL=1:DI=0:NL=0:N1=0:TST=0:XX=#F89B 
2570 AC*="ACCORDEON":BI*="BINIOU":HA*="HAUT-BOIS":CL*="CLARINETTE" 

2580 EF*=" 

2590 TR*="-" 

2600 RETURN 

2605 : 

2606 REM— MODE D'EMPLOI — 

2607 : 

2610 CLS:PAPERO:INK6SPRINT 

2620 PRINTEM*DF*"*MUSIC*“:PRINTEM*DF*"*MUSIC*": PRINT: PR INT 
2630 PRINT"DE NOMBREUX LOGICIELS COMMERCIAUX" 

2640 PRINT"UTILISENT LES POSSIBILITES SONORES" 

2650 PRINT"DE L'ORIC PENDANT L'EXECUTION D'UN" 

2660 PRINT"PROGRAMME SANS SUSPENDRE L'ACTION:": PRINT"L'ORIC SEMBLE FAIRE AINSI" 
2670 PRINT"DEUX CHOSES A LA FOIS PR INT:PRINTEV*TR* 
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F'RINIER*"*MUSIC* EST UN UTILITAIRE DE" 

PRINI ER*"CREATION MUSICALE QUI VOUS" 

PRINTER*"PERMETTRA DE DONNER" 

PRINT ER*"CE TT E TOUCHE "CHR*(34)"PRO"CHR*(34)" 
PRINTEV$TR$:PR1NT:PRINT"GRACE A CET UTILITAIRE 
PR INT"CREEZ UN MORCEAU DE MUSIQUE QUI" 

PRINT"POURRA ETRE INTERPRETE PENDANT" 

PR I N I " VU I RE PROGRAMME" ER *" SANS LIN TERROMPRE": 
GUSUB3750 

CLS:PRINT:FRINT:PRINT"VOUS SAUVEGARDEREZ VOTRE 



A VOS PROGRAMMES" 
, VOUS" 


OEUVRE" 


2780 PRINT"PAR C 4 3 AU MENU" 

2790 PRINT"EI DEVREZ CHARGER"ERS"IMPERATIVEMENT" 

.2800 PRINT"*MUSIC*"EF:$"AVANT LE PROGRAMME" 

2810 PR INT"QUI L'UTILISE ...": PRINT: PRINTEV$TR$ 

2820 PRINTEM*" *MUS1C*“EV$"EST TOTALEMENT TRANSPARENT":PRINT"A VOTRE BASIC" 

2830 PR IN T"DANS VOIRE LOGICIEL, VOUS LANCEREZ" 

2840 PRINT"L'EXECUTION DU MORCEAU PAR :":PRINT:PRINTER*"!MUSIC": PRINT 
2850 PRINT"VOUS POURREZ L'INTERROMPRE PAR PRINT:PRINTER*"! STOP":PRINTEV*TR* 
2860 PRINT:PRINT"N'OUBLIEZ PAS DE SUPPRIMER LE 'CLIC' DU CLAVIER":G0SUB3750:CL 
S 

2870 F'R INT : PR IN T : F'R IN T " VOUS AUREZ LE CHOIX DE " : PRI NTER*"PLUSIEURS INSTRUMENTS" 
2880 PRINT"ET POURREZ VARIER LE TEMPO, LE VOLUME.": PRINTEV$TR$ 

2890 PRINT:PRINT:PRINT"DANS LA PROGRAMMATION DU MORCEAU" 

2900 F'R I NT " INSERTIONS, SUPPRESSIONS, MÜDIF I CA- " : F'R I NT "TI ONS, LISTAGES . . . " ; 

2910 PRINT"SONT ACCESSIBLES !" 

2920 F'R 1 NT : PR I NT "VOUS ETES "CHR$ (34) "LIMITE"CHR$ (34) " A”ER3>" 500 NOTES " 

2930 PRINT"POUR VOTRE MORCEAU !... 

2940 PRINT"(INSERTION MAXI: 100 NOTES A LA FOIS)":PRINTEV$TRS 
2950 PRINT:PRINT:PRINT:PRINT:FRiNTEVV(SUIVRE LES DIFFERENTS MENUS)" 

2960 G0SUB3750:CLS 

2970 PRINT"QUAND VOUS AVEZ TERMINE D ECRIRE" 

2980 PRINT"VOTRE PROGRAMME MUSICAL, TAPEZ :":PRIMTER*"F IN" 


2990 
3000 
3010 
3020 
E" 

3030 
3040 
$"SI " 
3050 
3060 
3070 
3080 
3090 

3095 

3096 

3097 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 


PRINT"(MEME DEMARCHE EN FIN D'INSERTION)PRINTEV4TR* 

PR IN T : F'R IN T " POUR QUITTER UN LISTAGE IL SUFFIT" 

PRINT"D'APPUYER SUR"ER*"C ESC 3" 

F'RIN TEVtTRS: F'R INT "VOUS DONNEREZ A CHAQUE FOIS" : FRINTEM* "NOTE OCTAVE DURE 
PRINT:FRINT"LES OCTAVES SONT NOTES 1, 2 OU 3" 

F'R INTER*"1->GRAVE 2->MEDIUM 3->AIGU":PRINT"ILS VONT DE"EM$"DO"EV*"A"EM 

PRINT:PRINT"LES DUREES SONT CODEES DE 1 A 8" 

PRINT"(EN CREATION, UN TABLEAU DONNE LES" 

F'R INT"CORRESPONDANCES CODE/DUREE ) " : F'R INT : F'RINTEVïTR* 

FRINT"LES SILENCES SONT DONNES PAR"ER*"C P 3":F'RINT"A LA PLACE DE LA NOTE" 
G0SUB3750:RETURN 

REM— REDEF. CARACTERES — 

DAT Aa,O,0,0,0,0,24,36,24 
DATAb,0,4,4,4,4,28,107,24 
DATAc,0,4,4,4,4,28,36,24 
DATAd,0,4,4,4,4,28,61,24 
DATAe,0,4,4,4,4,28,60,24 
DATAT,0,14,8,8,8,56,122,48 
DATAq,0,14,8,8,8,56,120,48 
DATAh,0,14,8,14,8,56,120,48 
DATAj,0,4,24,48,16,8,8,0 
DATAT:, 0,0, 255,28,28,0, 0, 0 
DATAI,0,0,28,28,255,0,0,0 
DAT Agi, 0, 16, 14,2,4,8,8,0 
DATAn, 0,32,^28,36,24, 16,16,0 

F0RI = 1 TOI 3: READA*: F0RN=0T07: READB: F'0KE46080+8*ASC ( A*) +N, B: NEXT: NEXT 



3236 REM— CODE COULEURS «< NOTES — 

3237 : 
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3240 

3250 

3260 

3270 

3280 

3290 

3295 

3296 
329 7 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 

3425 

3426 

3427 
3430 
3440 
3450 
3460 
3470 
3480 
3490 

3495 

3496 

3497 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 

3685 

3686 

3687 
3690 
3700 
3710 
3720 
3730 
3740 

3745 

3746 


EM*=" "+CHR* 1 . 27 ) + "E" : ER$=" "+CHR* (27) + M A" : EV*=" "+CHR* (27) +* , B' 
SC$=" "+CHR$ (27) +"L" : DF$=" "+CHR$ ( 27 ) + " J " : SF* = " "+CHR$ <27 ) +"H' 
DATADÛ,Dü#,REB,RE,RE#,MIB,Ml,FA,FA»,SOLB,SOL,SOL# 

DATALAB,LA,LA»,SIB,SI,FIN,P 
FOR I=0T018:READNP$(I) :NEXT 
RETURN 

REM— SAISIE — 


N$=" " 

L=LEN(N*) 

PLOTX+L,VL,130 

C$=KEY $: IFC*=""THEN3330 


IFASC( C$ > =13THEN3400 


IFASC(C$)<>127THEN3370 

IFL>OTHENN*=LEFT$(N*,L-l> :F'LOTX+L,YL, " " : G0T03310ELSE3330 

IFASC(C$)<32THENPING:G0T03330 

N*=NÏ+C* 


F'LOTX , YL, N$: G0T03310 

PLOTX+L,YL,EF$:RETURN 

ER= 1 : F OR I =0T 018: IFN$=NF'$ < I > THENER=0 


NEXTI :RETURN 


REM— CORRESP. CODE/NOTE — 

PLQT6,3,7:PL0T6,1,0:PLOT6,0,0:PLQT6,4,2:PLOT7,1,22:FL0T7,0,22 
PL0T7,3,20:PL0T31,3,16 

PL0T31,0,16:FL0T31,1,16:PL0T31,2,16:PLÜT6,2,0:PL0T7,2,20 
F’LOTB, 1, "a b c d e f g h" 

PL0T8,0,"k 1 3 m n" 

PLOTS,3,"1 2345678" 

RETURN 

REM— LANGAGE MACHINE — 


DAVAA9,E6, 
DAT A4C, 1B,- 
DATADO,35, 
DAT A9D,E1, 
DATAA2,OA, 
DATABE,32, 
DATA20,ED, 
DATABD,EO, 
DATAA5,02, 
DATAC6,04, 
DA1A4C,C2, 
DAT AA5,03, 
DATA8D,E3, 
DAT AE6,03, 
DATADO,05, 
DAT AEO,09, 
DATA8D,30, 
DAT AE6,01, 
FORI=#8CD0 


A2,8C,8D,F5,02, 
C7,60,AO,00,B1, 
A9,00,A2,8E,85, 
02,CA,DO,FA,A2, 
86,03,86,05,A9, 
02,8C,30,02,60, 
8D,60,48,8A,48, 
02,48,CA,DO,F9, 
C9, <X>,FO,05,C6, 
A9,00,8D,E3,02, 
8D,E6,04,20,E2, 
8D,E5,02,A9,01, 
02,20,E2,8D,8D, 
E6,03,A9,02,8D, 
85,05,4C,C2,BD, 
D0,F7,68,BD,E4, 
02,20,ED,8D,4C, 
60,A9,00,A2,00, 
T0#8DFC:READA*: 


• '- r 1 w 1 
36,A2, 

C9,B3, 
98,48, 
A5,05, 
02,4C, 
8D,E4, 
8D,8D, 
8D,El, 
E4,02, 
El,02, 
85,02, 
02,68, 
C2,8D, 
9D,El, 
A=VAL( 


02 , 

E9, 
01, 
El, 

BD, 

DO, 
AD, 
C9, 
C2, 
02 , 
E3, 
02 , 
C6, 
20 , 
A2, 
A8, 

AO, 

02 , 

'#■* 


M'-' ^ tL ^ 

FB,A9, 
04,02, 
00,DO, 
A5, 


8D, 


A2,02, 
02 , 20 , 
20 , 26 , 
03,C6, 
26,FB, 
01,68, 
68,AA, 
00,B1, 
E8,EO, 

' +A$ ) : F' 


A2,âC,85,A6,86,A7 
E6,EA,C9,A8 
85,02,A2,07 
E5,02,20,B6,FB 
8D,31,02 

40,8D,30,02 

48,78,A2,08 

03,4C,D7,8D 

04,C9,00,DO,15 

8E,El,02,20,26,FB 

E2,8D,8D,E4,02 

FB,20,E2,8D 

03,A5,03,8D,E5,02 

20,E2,8D,C9,00 

9D,EO,02,E8 

68,40,A9,40 

00, E6,00,DO,02 

07,DO,F8,20,B6,FB, 60 

ÜKE1,A:NEXT 


REM— ADAPTATION ATMQS — 



IFPEEK(ttDOOO;=166THEN3740 

D0KE#8CE3,#C6F0:D0KE#8D11,«FBDO:D0KE48D20,#24B: D0KE48D23, #24C 
D0KE48D26,#24A:D0KE#8D30,#24A:D0KE#8D73,#FB40 
D0KEW8D91,#FB40:D0KE#8DB2,#FB40:D0KE48DDA,#24A 
D0KE#8DFA,#FBDO:XX=#F8D0 
RETURN 

REM— S.P UTIL. — 
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374 7 
3750 
3760 
3770 
3780 

3785 

3786 

3787 
3790 
3800 
3810 
3820 
3822 
3824 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 

3965 

3966 

3967 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4 100 
4110 

4115 

4116 

4117 
4120 
4 1 30 
4140 
4 1 50 
4160 
4 165 
41 70 
4 1 80 
4190 
4200 
4210 
4220 
4230 

4232 

4233 

4234 

4235 


PLQT7,25, 1 :PLOTB,25,"APPUYEZ SUR UNE TOUCHE":GETTS:RETURN 
PL0T7,24,5: PLOT8,24,"FIN DE LISTE DEMANDEE":G0SUB3750:RETURN 
PRINTSPRINTS PRINTEMSSC*"HORS LIMITES ERREUR":G0SUB3750:RETURN 
PL0T7,25,1:PL0T8,25,"UN INSTANT":RETURN 

REM— CHOIX VOL,TEMPO,TIMBRE — 

CLS:PR 1NTEM*TR* 

F'RlNIEVt" VOLUME DE"ER*"2"EV* " A"ER* " 15 " : PR INTEM*TR* 

PRINTEM*TR*: PRINTEV*"TEMPO DE"ER*"1"EV*"A"ER*"15" 

PR IN TER*"1"EV*".RAPIDE": PRINTER*"15"EV*"_LENT" 

PRINT :PRINTEM*"ATTENTION"EV*"SI LA GESTION D'ECRAN" 

PRINTEV*"EST IMPORTANTE, LE TEMPO":PRINTEV*"SERA RALENTI ..." 

PRINTEM*TR*:PRINTEV*"TIMBRE (INSTRUMENT)":PRINT" "AC*"-"ER* 

PRINT" "DI*"."ER*"B":PRINT" "CL*"..."ER*"C" 

PRINT" "HA*"...."ER*"H": PRINTEM*TR* 

PL0T3,20,CHR*(3)+"VOLUME ?" : X = 13:YL=20:G0SUB3300 

V=INT(ABS(VAL(N*))):IFV<20RV>15THENP1NG:G0SUB3770:CLS:G0TQ3790 

POTE#8D14,V:PL0T3,21,CHR*(3)+"TEMPO ?" :X=13:YL=21:G0SUB3300 

T=INT(ABS(VAL(N*))):IFT<10RT>15THENPING:G0SUB3770:CLSsGOT03790 

PL0T3,22,CHR* (3) +"TIMBRE ?" :X=13:YL=22:G0SUB3300 

IF N*=""THENPING:G0T03900 

IFN*="A"THENT1=1.02:G0SUB3750:RETURN 

IFN*="B"THENT1=1.5:G0SUB3750:RETURN 

IFN*="C"THENTI=.5:G0SUB375Ô:RETURN 

IFN*="H"THENTI=2/3:G0SUB3750:RETURN 

GOT 03900 


REM— MODIF. C53 AU MENU — 

PL0T5,18,CHR*(1)+AC*+" C A 3":PL0T5,19,CHR*(2)+BI*+" L B 3 

PLOT 5,20,CHR*(1)+HA*+" CH]" 

PL0T5,21,CHR*(2)+CL*+" C C 3":PL0T22,23,CHR*(1)+"—>" 

IFT1 = 1.02THENET=18ELSEIFT1 = 1.5THENET =19ELSEIFTI=2/3T HENET =20 
IFTI=.5THENET=21 
PL0T3, ET, "•*>" : RETURN 

IFA=86THENPL0T2,18,CHR*(5)+"VOLUME A"+STR*(V) 

IFA=84THENPLÜT2,18,CHR*(5)+"TEMPO A"+STR*(T) 

RETURN 

CLS:PRINT"VOUS AVEZ UN MORCEAU EN MEMOIRE" 

PR INT"EN PASSANT PAR"EV*"C CREATION 1" 

F'R INT "VOUS ALLEZ LE DETRUIRE ..." 

F’R I NT : PR I NT : PR I NT " VOUS CONFIRMEZ VOTRE CHÛIX"ER*"0 / N" 

GETR*:IFNQT(R*="0"0RR*="N")THENPING:G0T04100 
RETURN 

REM- DAQUIN (LE COUCOU) - 

DATA 126, 18, 119, 18,126,18,94, 18, 126, 18,119, 18, 126, 18 
DATA79, 18, 126, 18, 119-, 18, 126, 18,94, 18, 126, 18, 119, 18, 126, 18 
DATA79,18,126,18,119,18,126,18,94,18,126,18,119,18,126,18 
DAT A79,36,84,36,94,2,84,2,94,36,100, 36 

DATA94,18,126,18,119,18,126,18,79,18,126,18,119,18,126,18 
DATA142,18,142,18,126,18,142,18,84,18,142,18,126,18,142,18 
DATA 159, 18, 159, 18, 142, 18,159, 18,94, 18, 159, 18, 142, 18, 159, 18 
DAT A168, 18, 168,18, 159,18,168, 18,106, 18,168, 18, 159, 18,168,18 
DATA189,18,189,18,168,18,189,18,119,18,1B9,18,168,18,189,16 
DAT A200,36,189,36, 168,36,159,16,159,2, 168,2, 159,2, 168, 144 
DATA 126, 18, 119, 18,126, 18,94,18,126, 18, 119, 18, 126, 18 
DAT A79, 18,126,18,119,18,126,18,94, 18, 126,18,119, 18,126, 18 
DATA79, 18, 126, 18, 119, 18,126,18,94,18, 126, 18,119, 18, 126, 18 
DATA79,36,84,36,94,2,84,2,94,36,100,36 

DAIA94,18,126,18,119,18,126,18,79,18,126,18,119,18,126,18 
DATAI 42,18,142, 18,126,18,142,18,84,18,142,18,126,18,142,18 
DATA159,18,159,18,142,18,159,18,94,18,159,18,142,18,159,18 








4236 DATA168,18,168,18,159,18,168,16,106,18,168,18,159,18,168,18 

4237 DATA189,18,189,18,168,18,189,18,119,18,189,18,le>8,18,189,18 
4240 DATA200,18,189,18,200,18,189,18,168,18,159,18,142,18,168,18 
4250 DATA126,36,142,18,159,18,168,36,168,36,168,18,189,18,189,144 
4260 DATA 106, 13,94, 18, 106, 18,79,18,106, 18,94', 18, 106, 18,63, 18 
4270 DATA106,18,94,16,106,18,79,18,106,18,94,18,106,18 
4280 DATA63,36,71,36,79,2,71,2,79,36,84,36,79,18, 106, 18,94, 18,106,18 
4290 DATA63,18,106,18,94,18,106,18 

4300 DATAI 19, 18,119, 18,106,18,119,18,71,18,119,18,106,18,119,18 
4310 DATA126,18,106,18,119,18,126,18,79,18,106,18,119,18,126,18 
4320 DATA94,36, 106,36,119,2, 106,2, 119,36, 126,36,126,2, 142,2, 126,2, 142,144 
4330 DATAI26,18,119,18,126,18,94,18,126,18,119,18,126,18 
4340 DATA79,18,126,18,119,18,126,18,94,18,126,18,119,18,126,18 
4350 DATA79,18,126,18,119,1B,126,18,94,18,126,18,119,18,126,18 
4360 DATA79,36,84,36,94,36, 100,36 

4370 DATA94,18,126,18,119,18,126,18,79,18,126,18,119,18,126,18 
4380 DAT A142, 18,142,18,126,18,142,18,84,18, 142, 18, 126, 18,142,18 
4390 DATA159,18,159,18,142,18,159,18,94,18,159,18,142,18,159,18 
4400 DATA168,18.168,18,159,18,168,18,106,18,168,18,159,18,168,18 
4410 DATA189,18,189,18,168,18,189,18,119,18,189,18,168,18,189,18 
4420 DATA200,36,189,36,168,36,159,16,159,2,168,2,159,2,168,144 
4430 DATA126,18,119,18,126,18,94,18,126,18,119,18,126,18 
4440 DATA79,18,126,18,119,18,126,18,94,18,126,18,119,18,126,18 
4450 DATA79,18,126,18,119,18,126,18,94,18,126,18,119,18,126,18 
4460 DATA79,36,84,36,94,36,100,72,94,144 
4900 DATAO,O,999,999 
5000 I1=0 

5010 READX,Y: IFX =999THEND0KE#2F5,#8CE6:F0KE48D14,8: ! MUS IC: RE TURN 
5020 D0KE#8E00+I1,X:I1=11+2:D0KE48E00+I1,X*1.02 
5030 11 = 11+2: FÜKE48E00+ I1,Y:I1 = U + 1:G0 T05010 



□ 151 F 


□ 145 F 


□ 110 F 


( +10 7. de port ) 


Nom .Prénom. 

Adresse .Code Postal .Ville 



Bon de commande et règlement à envoyer à : Editions SORACOM - La Haie de Pan - 35170 BRUZ 
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PETITES ANNONCES 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti¬ 
tes annonces farfelues sont systématique 
ment rejetées.. De même, comme il est peu 
probable qu'il existe des "généreux dona¬ 
teurs" de matériels ou de logiciels, les peti¬ 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis "d'origine", ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho¬ 
tocopiée). le texte étant rédigé à raison d'un 

caractère par case 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée 

Vends ATMOS ♦ magnéto K7 4 7 K7 dont 5 
d'aventures + 2 K7 de programmes tapés 2 nom 
breux livres : 1600 F. Tél 42 618 79 après 20h. 

Vends ATMOS (07.851 état neuf + moniteur cou 
leur OR 14 ♦ magnéto ♦ 10 logiciels ♦ manuel 4 
cadeaux Prix d’achat 4000. sacrifié è 3000 F Tél 
48 30.09.50. 

Recherche possesseur collection THEORIC pour 
prêt afin de faire des photocopies Tous frais rem¬ 
boursés + caution. Tél 21.53.55 82. 

Vends THEORIC N° 1 22. 10 F pièce ou 1 50 F le 
tout. Vends programmes originaux ORIC 20 % prix 
d'achat. Tél. 29.24.63.89 le week end. 

Vends Pratique de l'ORlC 1 : 40 F 4 36 program¬ 
mes 70 F. Tél. 23 98 44 48 

Votre ORIC vieillit, passez à un matériel plus évo 
lué Vends Apricot FIE 256 K moniteur, drive, 
nombreux logiciels, tbe Tél. 30.43.01.06 


Vends 2 manettes de |eu ♦ interface programma 
ble 250 F K7 Harrier Attack. Carmaniac 100 F 
♦ livres Pilotez votre ORIC 1 + ATMOS 

Urgent, vends Modem DTL 2000 F. tbe 800 F 
Jasmmtel 200 F Tél. 93 52 08 49. demander 
Daniel 

Vends jeux ATMOS entre 30 et 70 F pièce The 
Ultra. One Munch. etc. garantis d'origine Liste sur 
demande Tél 41 66 94 84 

Cherche interface joystick programmable J C 
NOBIS. tél 94 48 73 64 

Cherche lecteur disquettes ♦ copieur K7 sur dis 
guette ♦ compilateur, le tout à très bas prix Faire 
offre à M POTHET. 16 rue Corgnac. 87100 LIMO 
GES 

Vends Microdisc (12/85) ♦ Sédoric cause ATMOS 
vendu 1500 F i K7 Xénon ♦ Aigle d'Or, gra 
luîtes si achat. Tél Nico 50 71 50 43 (HR) 

Achète matériel ORIC hors usage Tél 
56 94 81 82 après 19h 

Vends livres ORIC (dont manuels d'A Chenière) * 
collection complète de THEORIC ♦ MICRORIC F 
TARAUD, tél. 38 93 83 64 

Vends ORIC 1 4 Jasmin 4 crayon optique 4 
malette ♦ nbx programmes éducatifs et autres ( ♦ 
de 300) Tél 46 49 55 01 le soir 

Vends imprimante Seikosha GP 500A. 50 cps. 80 
colonnes, papier informatique, édition textes, gra 
phismes. Tél. (1) 30.92.32 40 

Recherche T DOS pour JASMIN Tél 35 28 45 38 
(Seine Maritime) vers 19h. 

Cherche contacts ATMOS pour échange divers 
Henry GERARD. 20 rue des Coteaux. 78650 BEY 
NES. tél (1) 34 89 33.71. 

Vends cause départ étranger fonds de commerce 
micro-informatique centre ville, galerie marchande. 
St Lô. Manche Tél. 33 57.23 10. 

Vends 2X81 ♦ RAM 16 K 4 magnéto 600 F 6 


livres 4 14 n° Ordis 500 F Chante. 92350 PLES 
SIS ROBINSON, tél 43.50 23.70 

ATMOS 4 JASMIN recherche contacts pour 
échanges ieux de réflexion, originaux, utilitaires 
R MOLLES Rés des 4 Vents. 49500 SEGRE 

Vends M05 ♦ magnéto ♦ K7|eux 4 crayon opu 
que 4 adaptateur TV 4 péntel (jamais servi) 
2200 F Tél 64 93 1 3 60 

Vends mterf ECSl ♦ |Oystick 300 F. Cherche 
Amplibus ♦ Sedonc ♦ logiciels Jasmin Cale ♦ 
Easytext *■ Easydisk ♦ Jasmitel Tel. 
87 02.44 23 

Cherche contact sur Sedonc pour échange Tél 
67 65 12 33 ou 67 29 55 53 590 rue de la Caval 
cade. 34000 MONTPELLIER 

G HENRIAT recherche logiciels disk Jasmin 2 et 
K7 Atmos Vends ou échange mini-cassette One 
Ecrire 5 rue G MOQUET. 91390 MORSANG 

Vends ORIC 1 4 20 cass 4 23 THEORIC 4 200 
list. 4 mterf |oy + synthé Ml. Sys ♦ magnéto 
ou sans 1500 ou 1200 F Tél 97 65 90 56 

Vends originaux Jasmitel Jasmin . 200 F MS 
ATMOS. Jasmin 350 F (pas utilisés) avec notice 
Tél. 85 75 69.40 

Vends synthé vocal 4 cordon 350 F Interface pro 
de ieu (2 manettes) : 100 F. Modulateur N et B 
150 F Tél 44 71 49 07 après 18 h 

Vends imprimante GP 100 Seikosha 4 cordon, 
papier, ruban encreur 1200 F Tél. 43 09 54 60 
après 19 h. 

Vends ATMOS 4 interface 4 télé N B + 24 jeux 
♦ 11 THEORIC > 5 livres 4 magnéto pour 
2000 F Hubert NIEL. tél 90 62 1 7 03 

Achète cassette Tyrann en bon état et cherche 
informations sur la deuxième partie Dominique 
DUNAS. 67 Fbg Saint Jean. 28000 CHARTRES. 

ATMOS cherche déséspérément correspondants 
sympas pour nbx échanges. Frédéric PERRIN. 8 rue 
Diderot 42300 ROANNE 


ANNONCEZ-VOUS! 

les petites annonces et les messages 



Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 
SORACOM, La Haie de Pan, 35170 BRUZ 
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ABONNEZ 


VOUS 



- VAtA *- e iETao» ^" U «“' R '"' mé .'°’sORACO(«, I 

(o „.„,ion : I-' 11 " à ,' or dre A» SOtlA » 

CHoInt un <»* u * s* RA COM, I» « al * d ‘ ? °" > 

Cl ’ Edition* SO 35,70 BRUI votre abonnent , 

mote sur le prochain nu ^ m<)|S 

Pour être pns ®". ( C ° ous parvenir avant e . 

NOM . . . 


Adresse . ville . 

Code Pos,a ' . Signature • • • •. '. 70 F 

_ . , ^ coule fois) * 130 F 

pays - . -t mois l« ne se .: * • 035 F 

Abonnement 3 . $ ^étroPoUtajo® J* 75 F 

Abonnemen Qn France m 235F+14U r 1 

®ÎB=-• ■_SUtMW 

\6 disqu ettes) ^ ^ 



LES DISQUETTES DE THEORIC 


Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 


Le prix :116F pour les abonnés à la revue (joindre impérativement l'étiquette), 146 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N° 

1 THEORIC n° 

4 et 5 



U 

JEUVIE .BAS 

S 

N ° 

2 THEORIC n° 

6 et 7 



U 

GENE 1 .61N 

s 

N° 

3 THEORIC n° 

8 et 9 



U 

U 

GENET .B 1N 

GENE3Ut .B IN 

5 

5 

N ° 

4 THEORIC n ° 

10 et 12 



U 

DATA+AT .BAS 

S 

N° 

5 THEORIC n° 

13 et 14 



U 

DATAi-01 .BAS 

S 

N° 

6 THEORIC n° 

15 et 16 



U 

ECRI-EVQ.BIN 

£ 

N° 

7 THEORIC n° 

1 7 et 18 



U 

U 

CAMEMBEP.BAS 
INT-5EN2.BAS 

5 

S 

N ° 

8 THEORIC n ° 

1 9 et 20 



U 

INT-GEN1.BAS 

S 

N° 

9 THEORIC n° 

21 et 22 



U 

II4T-ÔEM3. BAS 

s 

N° 

10 THEORIC n 

0 23 et 24 



U 

FILS1 .BAS 

s 

N ° 

HS THEORIC HORS SERIE (n° 

11) 


U 

FIL 5C .BAS 

s 






U 

FILS3 .BAS 

5 



VOLUME : TQC5 

M6 


U 

SEO .BAS 

5 






U 

suffacec.bas 

S 


U 

MUSIC .BAS 

S 

76 SECTORS 

U 

POSITION.BAS 

5 


U 

DUf-fP . BAS 

S 

7 SECT0R5 

U 

LEC’SETT.BAS 

S 


V 

DUMP .BIN 

s 

2 SECTORS 

U 

LCA”Disk.bas 

s 


U 

RWSECT0R.BAS 

s 

4 SECTOF.S 

U 

F CuSF’OL'S e BAS 

s 


U 

CHAN 3 E .BAS 

e 

13 SECT 0 RS 

U 

ATMF AF I S.BAS 

s 


U 

R 0 UTÎNE .B IN 

S 

19 SECTCF.S 





U 

F.EMCDL 0 R . BAS 

S 

T SECTORS 

2 

SECTOF.S f^EE 


BON Di COMMANDE 
DES DISQUETTES THEORIC 


Cl ZÏCTÛF5 
t 5ECT0F 5 
e 5ECTGFS 
6 SECTOF.S 
11 SECTGFS 
11 SECTOF.S 
9 5ECTC=S 
8 SECTORS 
15 SEC7GRS 

15 r EIT0F 5 
19 5ECT0F5 
14 5ECTGPS 
14 SE CT G F. 5 
14 SECTORS 
2 SECTOF.S 
il SECTOr S 
5 SECTOF.S 
1 : SECTOftS 
14 SECTCF.S 
CT SECTORS 
98 SECTORS 


Je commande les disquettes 1 2 3 4 5 HS 6 78910 11 
Ci-joint : 116 F par disquette et mon étiquette abonné 

146 F par disquette car je ne suis pas abonné 


NOM .Prénom 

Adresse. 


Soit au total la somme de 
que ci-joint. 


F réglée por ché- 


Code Postal .... Ville 























0 oRHifin° ue 


pfèo° 0 ' 


La Haie de Pan 
35170 BRUZ 





OTALUE ©#> 



TYRAN N II EST LA! 

Présentation "PRO" en boîtier de 2 cassettes, avec carte des lieux, fiche de personnages, fiche de monstres, 
livret de règles illustré de plus de 60 pages. 

Avec le FER D’ANNUKOR, le jeu de rôle sur micro atteint enfin sa maturité! 


Disponible chez votre revendeur ou en nous retournant ce coupon à OPUS 
14000 CAEN. Tèl. 31.86.56.69. 


49, rue des Rosiers, 


Nom 


Adresse 


Prénom 


I 

I Désire recevoir le fer dAnnukor. 

Joindre un chèque de 230 F (210 F + 20 F de port). 


IZARD Création* 99 38 95 33 











